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%%% 


*EB" 


CMD 


*** 


2408 


*** 


"DB" 


CMD 


*** 


2486 


%%% 


"EM* 


CMD 


*** 


2555 


*** 


•EN" 


CMD 


*** 


2563 


*** 


•EN 5 


CND 




2579 


*** 


•DM' 


CMD 


*** 


2581 


*** 


S DN' 


CMD 




2632 




*DN* 


CMD 


*** 


2649 


*** 


"EI* 


CMD 




2670 


*** 


'DF 


CMD 




2671 


%%% 


•DN" 


CMD 


*** 


2693 




•EK* 


CMD 


*** 


2715 




'EN" 


CMD 


m 


2721 


*** 


"LA" 


CMD 


*** 


2729 


*** 


"LI" 


CMD 


*** 


2735 




"LK" 


CMD 


*** 


2743 


*** 


"DN" 


CMD 


*** 


2749 


*** 


"DK" 


CMD 


*** 


2762 


*** 


"CP" 


CMD 


*** 


2783 


*** 


"ER" 


CMD 




2828 




"LR* 


CMD 


*** 


2838 


*** 


"DR" 


CHD 


*** 


2851 




•LC 


CMD 


*** 


2857 


*** 


"CE" 


CHD 


*** 


2893 


*** 


"TE" 


CMD 


*** 


2915 


*** 


"SC" 


CMD 




2939 


*** 


"TP 


CHD' 


*** 


2978 


*** 


•MM' 


CMD 


*** 


2992 




•sr 


CMD 


*** 


3003 


*** 


*CS" 


CMD 


*** 


3012 


*** 


'CH' 


CMD 


*** 


3022 


*** 


*LF' 


CMD 


*** 


3030 




•DF' CMD 


*** 
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7 




i LISTING CONTROLS 






8 




.NLIST ! 


O 






9 




.LIST MI 


bMCfMEB 






10 
ii 




J SYMBOL ASSIGNMENTS 






12 


ft ft" 

020000 


RAMST 


8192. 


(FIRST "RAM" MEMORY ADDRESS 


13 


003244 


KPAINI 


1700. 


i VALUE FOR ,44 SEC BETWEEN U0RD31 CHECKS 


14 


AAAA A"? 

000043 


KATIMX 


35. 


fNUMBER OF TIME IN A ROW KA HAS TO BE THE SAME 


15 








i KATIMX .ECU 


14. IS 6 SECONDS » ,EQ,35. IS 15 SEC 


16 


A A AT A A 


RUNFP 


"0300 


il/O REG C0NTAING CPU 'RUN FLOP* 


17 


A A AT A n 

00030u 


TTYSy 


"0300 


fl/u l\Lw rur\ 


ii! rftUrc 1 rHltLL owl \ unto 


18 


00O301 


SMSTS 


"0301 


i t /n pen rnD 
il/U Ktb rUK 


k'01A CTAT1IC BTTC 

Kb 10 blHiUb Dltb 


4 n 
1? 


AAATA-? 

000301 


BOOTSy 


"0301 


t t /ft prn cnp 
fi/U f\tu run 


LjApriUApc spnni 8 QMTTPI4 


r.ft 

IQ 


A AATA*V 

000302 


CARRIER 


"0302 


fi/y Ktb fUI\ 


KtHuirlb s\LiRi!\ Lfmruth 


21 


A A A 4 A A 

000100 


SMF'AR 


"0100 


?i/0 Ktb rUK 


rUAtii Tklf 1 k"01A DAD TTV TiCTrP r 

tNHBLiNb I\bl0 rRKi! f Dt I tl i 


22 


000100 


RESET 


"0100 


* ? /n r»rn nnrs 

f I/O Ktb FOR 


ibSutlNb KblO Bub REat! 


23 


Aft ft J ft J 

000101 


REFERR 


"0101 


f 1/0 Klu rufv 


KtRiiiMb nub fltn KtrKtSH lKK rLflb 


24 


An A 4 A 4 

OOoiOl 


LIGHTS 


"0101 


* T /ft nrn rnD 

? 1/U Ktb r UK 


whi I iWb irit rHNtL LibHlb 




AAA* A 4 

000101 


DTR 


"0101 


* t /n nrn rnc* 

J 1/U Ktb rUK 


LIDTTTiJr TUC TiATA TCDMTkiAl DCATiV 

wKi 1 iNb Int UhIh ItKniNRL KtBIJY 


26 


AAA 4 Art 

U00102 


R.WISY 


"0102 


* t m pce CfiP 
j i/U Ktb run 


f\tHLUr?o ntn dUoi Ur\ i/U i?UDT 


£i 


AAA 4 An 

000102 


R. RESET 


= "0102 


» T /r§ peri crip 
f i/U ntu rUft 


HtHiM Ir l\tbt 1 WLHi ii\UL\vlH RL LLU 


28 


A A ArtA * 

v0v204 


CRMCTL 


"0204 


iT/n pfg cop 
?I/U !\tu ruf\ 


ArrrQQTy^ rp&M 

HbL-LOOinU Ur\Hn 


2? 


00u205 


DIAG 


= "Q205 


* t /n pen php 

f i/U fttu rUf\ 


LUHy r ufHL 1 lUlx si 1 s 


TA 

30 


000206 


CLKCTL 


"0206 


? 1/ u r\tu r Ur\ 




31 


A A ArjJ A 

000210 


BUSCTL 


"0210 


fi/U rvtu rur\ 


iwiv duo bunn* 


32 


A AAfli n 

u00212 


CPUCTL 


= "0212 


fi/u Ktb rUK 


KolO KU«?tAtLUit jLUNi iNUt 


33 


000201 


CTYCTL 


"0201 


r 1/U Ktb rUK 


ilADT rnXJTDfil /CTATIIC 

UHKI bUNiKUL/bifisub 


34 


A A AAA A 

000200 


CTYBAT 


= "0200 


fi/U Ktb rUK 


hadt nATA pnerrp 
UhKI ItHlfl i?Ur r tK 


35 


000203 


REHCTL 


"0203 


? KtnU 1 1 UhKI 


IUN 1 KUL ntblbltK 


36 


00v2o2 


REMDAT 


"0202 


f KtnU It UhKI 


fiATA DrPTCTCD 

lift iH KtblbltK 


37 


000114 


DTARB 


"0114 


* t tt% p»ff* r*nri 

» I/O REG FOR 


DATA CYCLE OF BUS ARB,. 


TO 

3d 


AAAI •! r 
0001 1 J 


BUSARB 


"0115 


il/O REG FOR 


BUS ARBITRATION SIGNALS 


TO 


000116 


INT2KS 


"0116 


»I/0 REG FOR 


INTERRUPTING KS-10 


j! A 

40 


AAAAAA 
000000 


112635 


"00 


}R DATA BITS 


28-35 


41 


A A AAAi 
000001 


B2027 


"01 


)R DATA BITS 


20-27 


42 


AAAAA1 

000002 


D1219 


"02 


>R DATA BITS 


12-19 


*T 

43 


A AAA AT 

000003 


D0411 


"03 


!R DATA BITS 


04-11 


44 


A A AJ A-» 

000103 


D0003 


"0103 


5R DATA BITS 


0-3 


45 


A A A 4 AT 

000103 


A2835 


"0103 






46 


A A A 4 A *" 

000105 


A2027 


"0105 






4? 


000107 


A1219 


"0107 






48 


000111 


A0411 


"0111 






49 


000113 


A0003 


"0113 






50 


000102 


y2835 


"0102 






51 


000104 


W2027 


"0104 






52 


000106 


U1219 


"0106 






53 


000110 


U0411 


"0110 






54 


000112 


H0003 


"0112 
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xiQ 




♦SBTTLItttNUHERICAL VALUE ASSIGNMENTS 


J/ 


AAOAAA 


DDTIZ 

2?r I id 




i TlFkiCTTV /Ci Aljri nCTAlH T CAP •*, £AA DDT TAPrC 


58 


AA-I AAA 


Brio 


t->f\4 AAA 


? DtfcSiTi/oLflvt UtrAULl FUR oOO nrl ?ArEo 


5? 


0O03/7 


EOLlH = 


03/7 


?END~0F-LINt tUOE 


/ A 

60 


AAAA^A 

000020 


ARBRESP ~ 


020 


jBIT F0K BuS RtQ 


61 


AAAAA4 

000001 


DATACK ~ 


A4 

01 


?BII FOR DATA ttlKNuwLEBbE 


62 


A A A 4 A A 

0001UO 


NQNXnEn = 


n ft 4 A A. 

0100 


f BIT FOR NQN-EXIhTANT HEnbRT 


63 


A AAA** A 

000020 


TDDftCr 




* TjTT CAVC ft ETC* AH! T TDAD CklATii r ftki 

f Hi I bRib BErRuLT Trw tNABLE ON 


I A 


AAA* "J A 


LULrLiC. - 




jettc cay nirrAiH t* papus: cwabi r. 1 wcrp pi t' ckjadi 










; A[ | pApTTY I1M 
?HLL r Hl\i ! ! Iw 


il 

00 


i AAAAA 

ivvvvv 


BTT1S r 


Uivvvvv 


JTUTO TC PTTI^nF ft miiMT PTRHT Tfl 1 PFT'v 


47 
0/ 


ftftftftftl 


BT.fiTT = 


1 

I 


itfTT CAVC, riflTMfi BnnTCTPAp rpfiM flTCK 


Aft 


wvUvvi. 


HT*BIT = 

1 J i * 3JX i 


2 




Q7 


AftftAftl 


.HQRF0 = 


1 


«F! AR Wf^ Ki TNTK" HftFiF 


/ V 


ftftftftft^ 








"71 


AftftftftA 

yvUw*r 






{pi ac cavc k'| TKITk* MilFir -1 


I'l 
i £. 


ftftftftl ft 


* nuiiL j - 


'Til ft 
Uiv 


*ri AC CAVC k'i fUTk' UfiTtC 1 

uLm oh To r\Llni^ nUut o 


"77 

to 


AAA An A 


.H0DE4 = 


"020 


iFLAG SAYS KLINIK MODE 4 (MANUFACTURING MODE) 


74 


000003 


CARRL0SS = 


"03 


i INTERRUPT CODE FOR 'KLINIK CARRIER LOSS' 


75 


000002 


KL. ACTIVE = 


"02 


i INTERRUPT CODE FOR WHEN KLINIK BECOMES ACTIVE 


76 


000373 


STMSK = 


"0373 


r MASK FOR THE STATE LIGHT 


77 


000004 


STBIT = 


"04 


.STATE BIT 


78 


000333 


.IN 


"0333 


1 THE 'IN' INSTRUCTION 


79 


000323 


*0UT = 


"0323 


» THE "OUT" INSTRUCTION 


80 


000311 


.RET = 


"0311 


(THE 'RET' INSTRUCTION 
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82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 

ill 

112 
113 
114 
115 
116 
117 
118 
119 
120 



123 
124 
125 



000000 
000001 
000015 
000012 
000054 
000034 
000007 
000052 
000042 
000043 
000051 
000033 
000032 
000031 
000025 
000023 
000021 
000017 
000003 
000177 
000103 
000104 
000011 
000040 
000057 
000134 
000044 
000045 
000077 
000076 
000125 
000117 
000136 
000001 
000002 
000003 
000004 
000005 
000006 
000007 
000070 
000071 
000012 



.SBTTLttWASCII 

Q,OUT = 

SYNC = 

CRCHR = 

LFCHR = 

COMMA = 

CMBCK = 

BELL = 

STAR = 
QUO 

LBSI6N = 

RF'AREN = 
ALT 

CNTL2 = 

CNTLY = 

CNTLU = 

CNTLS = 

CNTLQ = 

CNTLO = 

CNTLC = 

RBOUT = 

CCHR = 

DCHR = 
TAB 

SPACE = 

SLASH = 

BSLASH = 

BOLLAH = 

PERCNT = 

QUES = 

ARROW = 

UCHR = 

OCHR = 

UPARR = 
ONE 

Tyo 

THREE = 

FOUR = 

FIVE = 
SIX 

SEMEN = 

EIGHT = 

NINE = 
TEN 



CHARACTER VALUE ASSIGNMENTS 

00 ? NULL CHAR* t STANDS FOR 'QUICK, OUT* 

01 J SYNC CHAR FOR APT MESSAGES 
» CARRIAGE RETURN 
?LINE FEED 
{ASCII FOR COMMA 
J CONTROL-BACKSLASH 

A BELL FOR WHEN HOST SYSTEMS GIVE ME GRIEF 
A STAR * 
DOUBLE QUOTES " 
POUND SIGN * 
RIGHT PAREN ) 
ALT MODE 



"015 
"012 
"054 
"034 
"07 
"052 
"042 
"043 
"051 
"033 
"032 
"031 
"025 
"023 
"021 
"017 
"03 
"0177 
"0103 
"0104 
"Oil 
"040 
"057 
"0134 
"044 
"045 
"077 
"076 
"0125 
"0117 
"0136 
"001 
"002 
"003 
"004 
"005 
"006 
"007 
"070 
"071 
"012 



CONTROL-Z 
CONTROL-Y 
CONTRQL-U 
CONTROL-S 
CONTROL-Q 
CONTROL-0 
CONTROL-C 
RUB-OUT 



"D" 

HORIZONTAL TAB 
SPACE 
SLASH 7" 
BACKSLASH 'V 
DOLLAR SIGN 
}*Z' 
"?* 



ENDS MODE 4 



■0' 

S I 8 

9 3* 
*4* 
•5' 
f'6' 

i'8' THE ASCII NUMBER 
f'9« THE ASCII NUMBER 
»'10" 
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1 0"? 
12/ 




i NUMERICAL ASSIGNMENTS TO GENERATE THE OFFSETS USED IN COMPUTING 


1 OQ 




! DEVICE ADDRESSES FROM ANY RH BASE ADDRESS 


12? 






DATtTV > 
(hHUiA < 


D 


130 


OOOOOu 


D A A 




A 




131 


000002 


P: A^ 







lo2 


A A AAA A 

O0O0U4 


D A A 




h 
*f 


133 


AAAAA / 

000006 


D Ai 

r *U6 




L 

6 


io4 


uOOOlO 


1 A 




1 A 
IV 


135 


AAAA4 1 


r$ 1 n 

r il± 




•1 

12 


ill 

loo 


AAAA1 


r * i*t 






1 77 
10/ 


Ouvv 16 


r * 10 




10 


loo 


AAAAOA 

vwU2U 


r + <i.y 




9 ft 


1 70 
107 


AAAAf* 
VUVV2£ 


D 00 




•1-1 


*A(S 


A AAA OA 








1*11 


AAAAOI 


r * £.0 




£.0 




AAAA7A 

UvvvOv 


r * j v 




ou 






r * w»j» 




32 




AAAA7A 


P. 34 




34 


l*f J 


AAAA7Z 
Uuvvoo 


P. 36 




36 


1 Al 
1*10 


AAAAAA 


P.40 




40 




A AAA At 

UvUU42 


P. 42 




42 


14b 


AAA A A A 


P. 44 




44 


14? 


vvQv46 


P. 46 




46 


150 


AAA"? "7/ 


D776 




776 


lol 




D772 




772 


1D2 






.RADIX 10 


153 




f DRIVE CONTROLLER REGISTER IS 776440,, FOLLOWING COMMANDS APPLY 


154 








» ' 7=REWND 


i err 

155 








» 11=DRIVE CLEAR 


loo 








t 25=ERASE 


1 ST"? 

lo/ 








5 27=HRITE TAPE MARK 


4 CO 

lob 


000031 


SKP,TAPE="031 


i 31=SPACE FORWARD(SKIP A FILE) 


15? 








5 33=SPACE REVERSE (SKIP A FILE? MOVING TAPE IN 


•5 /A 








1 51=URITE CHECK FORWARD 


ldl 








1 57=WRITE CHECK REVERSE 


162 








i 61=WRITE FORWARD 


163 


000071 


READ,TftPE="07l 


t 71=READ F0RyARD(G0!) 


164 








1 77=READ REVERSE (GO!) 


165 




i DEFAULT VALUES 


FOR CHECKSUM COUNTS, SO THAT ASSEMBLIES WITH 3 PROMS i 


166 


000000 




CHKSHO 





167 


000000 




CHKSMl 





168 


000000 




CHKSM2 





169 


000000 




CHKSH3 
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171 .SBTTLMMMACROS FOR OFTEN USED CODE* OR CODE SUBJECT TO REPEATED CHANGES 

172 

173 JPCHAR— 

174 ? PRINTS A SINGLE CHARACTER. WHICH IT FINDS IN THE TRAILING BYTE 

175 } CLOBBERS ACCUM 

176 .MACRO PCHAR XCHR 

177 RST 1 iGO PRINT CHAR IN TRAILING BYTE 

178 .BYTE XCHR J CHAR TO PRINT 
179 

180 .ENDM 

181 

182 vKCHAR — 

183 ? PRINT A SINGLE CHARACTER ON THE KLINIK LINE ONLY. CHAR TO BE PRINTED PASS 

184 r AS A TRAILING ARG 

185 .MACRO KCHAR XCHR 

186 CALL K'CHR iGO PRINT THE CHARACTER 

187 .BYTE XCHR 
188 

189 .ENDM 
190 

191 ?PLINE— 

192 < PRINTS A LINE OF CHARACTERS? POINTER PASSED AS TRAILING ARG 

193 i AND END OF LINE SIGNALED BY A '0' BYTE 

194 .MACRO PLINE XMS 

195 RST 3 f PRINT LINE OF CHARS 

196 .ADDR XMS 5 BUFF TO PRINT 

197 

198 .ENDM 

199 J KLINE — 

200 5 PRINTS A LINE OF CHARACTERS? POINTER PASSED AS TRAILING ARG 

201 i AND END OF LINE SIGNALED BY A '0' BYTE 

202 .MACRO KLINE XMS 

203 CALL KLINE SPRINT LINE OF CHARS 

204 .ADDR XMS J BUFF TO PRINT 

205 

206 .ENDM 

207 I INTOFF — 

208 ? EXECUTES THE OLD 'INTERNAL MODE OFF' SUBROUTINE..? BUT BY USING THE 

209 f RESTART INSTRUCTION CALL? UE SAVE 30.+ BYTES OVER 'CALL INTOFF' 

210 .MACRO INTOFF 

211 RST 6 5 GO EXIT FROM INTERNAL MODE 
212 

213 .ENDM 

214 » INTQH — 

215 } EXECUTES THE OLD 'INTERNAL MODE ON' SUBROUTINE..? BUT BY USING THE 

216 ? RESTART INSTRUCTION CALL? UE SAVE 30.+ BYTES OVER 'CALL INTON' 

217 .MACRO INTON 

218 RST 2 rGO SET INTERNAL MODE 
219 

220 .ENDM 
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222 fCLINE — 

223 \ PRINTS A LINE OF CHARACTERS > POINTER PASSED IN (HrL)i 

224 i AND END OF LINE SIGNALED BY A '0' BYTE 

225 .MACRO CLINE XMS 

226 LXI HfXHS 5 PASS POINTER TO THE CHARACTERS 

227 CALL CLINE SPRINT LINE OF CHARS 
228 

22? .ENDM 
230 

231 5PCRLF— 

232 ! PRINTS CARRIAGE RETURN-LINE FEED 

233 f LEAVES ALL REGISTERS IN TACT 

234 .MACRO PCRLF 

235 CRLF .GO PRINT CARRIAGE RETURN LINE FEED 
236 

237 .ENDM 

238 fSSCLK — 

23? ? ISSUES A SINGLE KSIO CLOCK. .CLOBBERS THE ACCUMULATOR 

240 .MACRO SSCLK 

241 HVI A»02 JBIT TO SET "SINGLE CLK* TO KSIO 

242 OUT CLKCTL J ISSUE THE SINGLE CLOCK 
243 

244 .ENDM 

245 fPTAB — 

246 » PRINTS A TAB 

247 } CLOBBERS ACCUM 

248 .MACRO PTAB 

249 PCHAR TAB t GO PRINT A TAB 
250 

251 .ENDM 

252 rPSPACE— 

253 } PRINTS A ' 1 SPACE 

254 ! CLOBBERS ACCUM 

255 .MACRO PSPACE 

256 PCHAR SPACE »GQ PRINT A SPACE 
257 

258 .ENDM 
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260 fPSLSH — 

261 J PRINTS A '/" SLASH 

262 i CLOBBERS ACCUM 

263 .MACRO PSLASH 

264 PCHAR SLASH 560 PRINT A SLASH 
265 

266 .ENDM 

267 ?ENDCMD — MACRO TO DO THE RIGHT STUFF 

268 I AT THE END OF A COMMAND.. COMMON CODE FOR FINISHING ALL INSTRS 

269 .MACRO ENDCMD 

270 RET i RETURN TO CALLER 
271 

272 .ENDM 

273 j BUSRESP — MACRO TO READ I/O REG 301Q 

274 i IN ORDER TO CHECK ANY OF THE BITS WHICH 

275 5 ARE READABLE IN THAT REGISTER.. THE BIT 

276 } OR BITS TO BE CHECKED IS PASSED AS A 

277 t TRAILING ARGUEMENT 'DB* TO A RST INSTR. 

278 ? t THE EXECUTION OF THE RESTART ACCOUNTS 
27? i FOR THE 2 'NOP' TIME REQUIRED FOR THE 

280 » BUS ARBITRATOR TO GRANT THE BUS. THIS 

281 } MACRO RETURNS MAINLINE WITH THE Z-BIT SET 

282 i IF THE REG 301 DOES !NOT! MATCH THE TRAILING 

283 t ARG THAT WAS PASSED AND WITH THE Z-BIT CLEAR 

284 } IF THERE IS A 'TRUE' IN ANY OF THE BIT POSITIONS 

285 i PASSED... 

286 .MACRO BUSRESP XXX 

287 CALL BUSRESP J DO A CALL TO EXECUTE THIS CODE 

288 .BYTE XXX 5 BITS TO BE CHECKED 

289 

290 .ENDM 

291 .MACRO D ARG » ARG1 ( NUL t ARG2 » ARG3 

292 .NLIST 

293 

294 .RADIX 8 
295 

296 .BYTE ARG3 I 377 

297 Q.l = «ARG3/400> I 1> ! «AR62*2> I 376> 

298 Q.2 = «AR62/200> I 3> ! «AR61*4> I 374> 

299 Q.3 = «AR61/100> I 7> ! «ARG*10> I 370> 

300 ' 0.4 = <ARG/40> I 17 

301 .BYTE Q.l 

302 .BYTE Q.2 

303 .BYTE Q.3 

304 .BYTE Q.4 
305 

306 .RADIX 10 

307 .LIST 
308 

309 .ENDM 
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311 .MACRO LI. AR62>ARG3 

312 .RADIX 8 
313 

314 

315 ARG = 

316 ARG1 = 
31? NUL = 
318 

31? 

320 Q.l = «ARG3/400> I 1> ! «ARG2*2> I 376> 

321 8,2 = «ARG2/200> I 3> ! «ARG1*4> I 374> ! <2«4> 

322 .BYTE Q.l 

323 .BYTE ARG3 I 377 

324 .BYTE Q.2 

325 .RADIX 10 
326 

327 ,ENDM 

328 
32? 

330 .MACRO EI. ARG2»ARG3 

331 .RADIX 8 
332 

333 

334 ARG = 

335 AR61 = 

336 NUL = 
337 

338 Q.l = «ARG3/400> 1 1> ! «ARG2*2> I 376> 

339 Q.2 = «ARG2/200> 1 3> ! «ARG1*4> I 374> ! <4*4> 

340 .BYTE Q.l 

341 .BYTE ARG3 1 37? 

342 .BYTE Q.2 

343 .RADIX 10 
344 

345 ,ENDM 
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74"? 


MAPDfi 

* nrtlhU 




ADP*-/ ADH7 


7*0 




D Aft TV 


6 


7 hQ 








350 


ARB 







351 


ARul 




A 

u 


3b2 


v if u 

NUL 







35-5 








354 




♦BYTE 


ARG3 I a// 


355 




0*1 = 


•s\ARu3/400;- 


7C / 












• BYTE 


Q.l 






♦ BYTE 


Q.2 


^5? 








7ZA 

36u 




♦RADIX 


10 


7Z1 








710 








7A7 








7Z £ 




DI. INDIRECT AR63 


QQ-J 




♦RADIX 


8 


111 




♦ ADDR 


ARG3 






♦ BYTE 


"0200 


7ZO 

368 












♦RADIX 10 


370 


*ENDH 






371 








372 


* MhCRO 


TUftIT ARG3 


ij7i$ 




•RADIX 


8 


374 




♦ ADDR 


ARG3 


375 




♦BYTE 


<14*4> 


"7"! i 

4/6 








5/7 




♦RADIX 10 


J/0 


• ENDfl 






379 








380 


•MACRO 


yAIT ARG3 


381 




♦RADIX 


8 


382 




•ADDR 


ARG3 


383 




♦BYTE 


<6*4> 


384 








385 




♦RADIX 10 


386 


♦ENBM 
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388 ♦MACRO ERRTST ARG3 

389 .RADIX 8 

390 ,ADDR ARG3 

391 .BYTE <10*4> 
392 

393 .RADIX 10 

394 ,ENDM 

395 .MACRO UBA. ARG2-ARG3 

396 .RADIX 8 
397 

398 

399 ARB = 

400 ARG1 = 

401 NUL = 
402 

403 

404 .BYTE ARG3 I 377 

405 Q.l = «ARG3/400> I 1> ! «ARG2*2> S 376> 

406 Q.2 = «ARG2/200> S 3> ! «ARG1<4> I 374> ! <16*4> 

407 .BYTE Q.l 

408 .BYTE 0.2 

409 .RADIX 10 
410 

411 .EHDH 
412 

413 .MACRO ENDLST 

414 .RADIX 8 
415 

416 .BYTE 

417 .BYTE 

418 .BYTE <12*4> 

419 .RADIX 10 
420 

421 .ENDM 
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423 


•MACRO 


M0V5B 




424 




RST 


4 


425 




♦BYTE 





426 


♦ENDM 






42? 








428 


♦MACRO 


CRLF 




429 




RST 


4 


430 




♦BYTE 


2 


431 


♦ENDM 






432 








433 


♦MACRO 


AR616 




434 




RST 


4 


435 




♦BiTE 


4 


All 

436 


♦ ENBH 






All 








438 


♦nrilRG 


RUN** 




A~?r% 




RST 


4 


h AP, 

440 




♦ BiTE 


6 


44i 


thrum 






442 








A A"? 

443 


♦MAbRU 


AKB36 




444 




RST 


4 


445 




♦BYTE 


8 


446 


♦ ENDM 






447 








448 


♦MACRO 


CLRRM 


FOO 


449 




RST 


4 


450 




♦BYTE 


ID, 


451 




.ADDR 


FOQ+5 


452 


♦ENDM 
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AC A 

454 


* MACRO 


EXAM F00 




455 




.RADIX 


8 




456 




CALL 


EXAMSH 


?AND 60 EXAH ASSUMING SHOkI hBBRESS 


45? 




.ADDR 


FOO 


JADBR TO BE ZAPPED PASSED AS TRAILING ARB 


458 




.RADIX 10 




459 


♦ENDH 








460 










461 


* MACRO 


DEPOS FOO 




462 




Tt A Tt T V 

♦RADIX 


8 




463 




ANA 


A 


?CLR s i-BiT* rQR USE Bf tOHMQN CODE 


464 




PA! 5 

CALL 


DEPbHT 


?AND DO THL DEPOSIT ASbUMING bHORT ADDR 


465 




hTtTtFt 


FOO 


yADDR TO BE ZAPPED PASSED AS i RAILING Ahb 


Alt 




.KhuiX 






46/ 


♦ tNDn 








46b 










46? 


kSAf*Dfl 

♦nflCKu 


RD.REG 


FOO 




4/0 




IN 


FOO 


? READ AN I/O htb 


471 




CMA 




?ANB ALWAYS COMPLEMENT 


472 


♦ENDH 








473 










474 


« MACRO 


SET2M 


FOO 




475 




CLRRM 


DMDAT 




476 




DEPOS 


FOO 




477 


•ENDH 








478 










479 


. nACKu 


TSTRDY 


FOO 




480 




.RADIX 


8 




481 




IN 


FOO 


pREAD DESIRED DART STATUb 


482 




ANI 


01 


ttHECK IF SET» ZBIT=0 IF READY i iBIT=l IF NOT YET 


483 




.RADIX 


10 




484 


,ENDM 








485 
486 


.MACRO 


LONG. DELAY 


AR6 


487 




LXI 


H»200. 


% ARG 1 SET UP THE TIMING COUNT IN HrL REG 


488 




CALL 


LTLOOP 


iAND GO DELAY ABOUT 1 SECOND FOR EACH (300 COUNT) 


48? 


.ENDH 









UER 6,2 KS10 CONSOLE PROGRAM CROSS - HICRO PROCESSOR ASSEMBLER 6(31) 3-MAY-79 16550 PAGE 3-2 
C0NDEF.M80 WMACROS FOR OFTEN USED CODE? OR CODE SUBJECT TO REPEATED CHANGES 



Hi I 




? MACRO TO SAME SPACE ON OPERATIONS THAT WANT TO CLEAR 






?a LOCATION IN THE RAH,, ELIMINATES EVERY XRA/STA PAIR, AND 






? INSERTS INSTEAD AN RST/BYTE PAIR,, AT BEST? AN XRA AND AN STA 






IARE ELIMINATED, AT WORST, A 3 BYTE STA IS REPLACED WITH 


*r 7 J 




?A 2 B 


YTE RST/BYTE, 

i t %m r.W t Art I L 7 






, MACRO 


CLRB XX 


497 






•NLIST 


498 






OFFSET^ XX - "020000 


£99 




.IF 


LEf "0400-OFFSET 






.IFF 




SOI 














.BYTE OFFSET 






.in 










.ERROR OFFSET?? BYTE OUT OF RANGE ON CLRB MACRO 


fact 
JVJ 




.ENDC 




506 




.LIST 




507 




♦ENDH 




508 








509 


120052 




CHKSM0=-"057726 


510 


140617 




CHKSH1=-"037161 


511 


160157 




CHKSM2=-"017621 


512 


003216 




CHKSH3=-"0174562 
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SIS 








S1 A 

J ID 








jl/ 








jib 








J17 


000000 




520 


000000 


000 




521 


000001 


000 




522 








jZo 


000002 


363 






000003 


303 


i AA 


cnr 
















S'?7 
S"8 








S9Q 


000010 














000010 


343 






000011 


176 






000012 


043 




574 

JOT 


000013 


343 




575 
JuJ 


000014 


303 












C77 








570 








57 Q 
■J07 








540 


000020 




541 








542 


000020 


345 




543 


000021 


041 


120 


544 


000024 


064 




545 


000025 


341 




546 


000026 


311 




547 









.SBTTL**** KS10 CONSOLE HARDCORE **** 
.SBTTL tt'RST' INSTRUCTION CODE** 

5AT POWER UP» ALWAYS BEGIN AT 0000 
0000 

NOP » NO-OPS FOR 2 IN8TR CYCLES 

NOP i LETS 8080 SETTLE DOWN 

DI {GUARANTEE INTERRUPTS DISABLED 

000 JMP PWRUP {BEGIN WITH INITIALIZATION CODE 

{*** RESERVE 'RESTART' MEHORY BLOCKS FOR INTERRUPTS 
{«* AND SPECIAL PURPOSE "RST* INSTRUCTIONS 
{BEGIN CODE FOR "PCHAR" WITH A 5 RST V 

"010 

XTHL {GET POINTER TO TRAILING ARG 

MOV AtM {CHAR INTO ACCUM 
I NX H {UPDATE POINTER TO RETURN ADDRESS 
XTHL {RESTORE RETURN ADDRESS TO STACK 

004 JMP PCHR 5 AND 60,.., 

{*** RESERVE 'RESTART' MEMORY BLOCKS FOR INTERRUPTS 
{*** AND SPECIAL PURPOSE 'RST* INSTRUCTIONS 
{SUBROUTINE TO SET INTERNAL STATUS (I.E. DONT TYPE ON TTY) 
"020 

INTON: PUSH H {SAME THE LIL BUGGER 
040 LXI H.NOPNT 5 GET VALUE OF FLAG 

INR M {INCREMENT BY ONE 

POP H {RESTORE THE REG WE SAVED 
RET {AND RETURN 
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C Aft 

54¥ 










RESERVE "RESTART* MEMORY BLOCKS FOR INTERRUPTS 


550 










mt AND SPECIAL PURPOSE 'RST' INSTRUCTIONS 


551 










? BEGIN CODE FOR B PLINE 5 


552 


000030 






* = 


"030 


ETC"? 

553 














CC A 

554 


000030 


343 






XTHL 


5 GET PNTR TO TRAILING ARG 


tree 

555 


000031 


136 






MOV 


E»M J GET LO ORDER PIECE 


sre / 

JvfO 


000032 


043 






INX 


H 1 UPDATE PNTR 


5 J/ 


000033 


126 






MOV 


DfM J GET HI ORDER PIECE 


558 


000034 


043 






INX 


H ? UPDATE PNTR 


ccn 


000035 


303 


i c/ 

Ij6 


AA* 

004 


JMP 


FINE fAND 60 TO ACTUAL ROUTINE 


560 














561 










mt RESERVE 'RESTART' MEMORY BLOCKS FOR INTERRUPTS 


56^ 










i*** AND SPECIAL PURPOSE "RST" INSTRUCTIONS 


CZ"? 

563 










IBEBIH CODE FOR "TRAP" OR 'UUO' TYPE SUBROUTINE CALLS 


564 


000040 






* = 


"040 


565 














566 


000040 


343 






XTHL 


5 SAVE "HjL" WHILE GETTING PC 


j6/ 


000041 


176 






MOV 


AfM 5 GET INDEX INTO SUBROUTINE DISPATCH LIST 


56o 


000042 


043 






INX 


H 5 UPDATE "PC 5 TO POINT AT RETURN 


c/o 


000043 


343 






XTHL 


?PUT BACK RETURN AND RESTORE 'H»L 5 


570 


000044 


345 






PUSH 


H iNOy SAVE "HjL" HHILE WE SET UP DISPATCH 


571 


000045 


303 


075 


032 


JMP 


RTNDIS »G0 CALCULATE SUBROUTINE TO DISPATCH TO.. 


572 
5/3 










ittt RESERVE 


"RESTART" MEMORY BLOCKS FOR INTERRUPTS 


C"? A 

5/4 










it** AND SPECIAL PURPOSE 'RST' INSTRUCTIONS 


C"3C 

5/5 










5THIS CODE CLEARS A SINGLE BYTE OF RAM SPACE » IN THE RANGE 


5/6 










(FROM 20000-20377 


577 


000050 






* = 


"050 


578 














57? 


000050 


343 






XTHL 


5 SAVE "HrL" WHILE GETTING PC 


580 


000051 


176 






MOV 


AiM »GET INDEX INTO SUBROUTINE DISPATCH LIST 


581 


000052 


043 






INX 


H i UPDATE 'PC* TO POINT AT RETURN 


582 


000053 


343 






XTHL 


IPUT BACK RETURN AND RESTORE ■HiL" 


583 


000054 


345 






PUSH 


H mm SAVE *H»L" WHILE WE SET UP DISPATCH 


584 


000055 


303 


133 


032 


JMP 


CLRBYT $60 CALCULATE SUBROUTINE TO DISPATCH TO.. 


585 














en/ 

58d 










;*** RESERVE 'RESTART* MEMORY BLOCKS FOR INTERRUPTS 


COT? 

587 










ittt AND SPECIAL PURPOSE 'RST" INSTRUCTIONS 


jod 










f THIS CODE EXECUTES THE 'INTERNAL MODE OFF' FUNCTION* TURNING OFF 


COQ 
JOT 










»THE PRINTING OF 8080 FUNCTIONS EXECUTED INTERNALLY. * INTOFF* IS 


CfjA 










? CALLED AT LEAST 15 TIMES f SO THIS RESTART CODE SAVES AT LEAST 


591 










!30 BYTES OVER "CALLS INTOFF' 


592 


000060 






* ~ 


"060 


CO"! 














594 


000060 


345 






PUSH 


H J SAVE THE LIL BUGGER 


595 


000061 


041 


120 


040 


LXI 


HiNQPNT » CLEAR ACCUM 


596 


000064 


065 






ICR 


M 5 DECREMENT PRINT FLAG 


597 


000065 


341 






POP 


H 5 RESTORE THE REG WE SAVED 


598 
599 


000066 


311 






RET 


» AND RETURN 


600 










ittt RESERVE "RESTART" MEMORY BLOCKS FOR INTERRUPTS 


601 










ittt AND SPECIAL PURPOSE "RST" INSTRUCTIONS 


602 










5 BEGIN CODE FOR HANDLING INTERRUPTS 
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603 000070 
604 

605 000070 363 DI 

606 000071 365 PUSH 

607 000072 305 PUSH 

608 000073 325 PUSH 
60? 000074 345 PUSH 
610 

611 000075 303 262 005 J«P 



"070 

5 GUARANTEE INTERRUPTS DISABLED 

PSy fSAUE 

B } EVERYTHING 

D I ONTO THE STACK 
H 

INTRP J AND 60 TO PROCESS THE INTERRUPT... 
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613 






614 


000100 


615 






616 






617 






618 


ft ft A 4 f. A 

000100 


061 


619 






620 






621 


















Oi4 


A A A i AT 

OOulOo 


AA4 
041 




000106 


021 


&26 






627 


000111 


066 


628 


000113 


043 


62? 


000114 


033 


630 


000115 


173 


631 


000116 


262 


632 


000117 


302 


633 







111 000 



{MAINLINE CODE BEGINS HERE 
"0100 

. SBTTL WPOUER UP START LOCATONtt 

» BEGIN BY SETTING UP 8080 STACK POINTER 

PWRUP5 LXI SP.RAMSTr 02000 sLOAD STACK PNTR WITH TOP RAM LOC 

JtilLL BE TAKEN OUT HHEN WE PUT IN THE POWER UP SELF TEST 

f MUST SET DISPATCH LIST AND CLEAR RAM 

LXI HfRAMST ISET "HfL" REGISTER TO START RAM ADDR 
LXI Di n 02000 » COUNTER TO FILL REST OF RAM y O'S 

CLRLPI MVI 
INX 
DCX 
MOM 
ORA 
JHZ 



HfOO 

H 

D 

AjE 

D 

CLRLP 



t CLEAR A RAH LOC 

f NEXT RAM LOCATION 

{DOWN COUNTER 

!L0 ORDER PIECE TO ACCUM 

! THROW IN THE HI ORDER PIECE 

{CONTINUE TILL DONE 



',tUUttitttUtttttttttttttttttttittit%tttUtttt1(ttt 



VER 6,2 KS10 CONSOLE PROGRAM CROSS - MICRO PROCESSOR ASSEMBLER 6(315 3-HAY-7? 16! 50 PAGE 3-7 
HC0RE.H80 ttPOWER UP START LOCATON** 



635 I BEGIN PROCEDURE FOR INITIALIZING KS10 

636 ;HUST INDIVIDUALLY CLEAR KS10 FLOPS 'RUNS' EXECUTE M "CONTINUE 1 

637 ; BECAUSE THEY ARE NOT RESET BY KSiO BUS RESET 

638 000122 257 XRA A I SET ACCUM=0 
63? ?SET O'S TO ' RUN » EXECUTE sCONT" 

640 000123 323 212 OUT CPUCTL it**** I/O MRT 212/0 ft*** 

641 

642 \ ISSUE KSIO BUS RESET 

643 000125 315 233 005 CALL MRINT fDOES RESET AND SETS DEFAULT PARITY I TRAPS 
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645 

646 
647 



•SBTTL ^INITIALIZE UARTS** 

>RAH BUFFERS HAVE BEEN INITIALIZED*. 

» PANEL SWITCHES I INITIALIZE 'UART' 



LIST READ FRONT 



648 


000130 


333 


300 


IN 


TTYSy 


mm I/O READ 300Q ***** 


649 


000132 


057 




CHA 




» FIX INVERSION 


650 














651 


000133 


001 


200 004 


LXI 


B»"02200 ITHIS SETS B="04 AND C="0200 


652 


000136 


147 




MOV 


H»A 


iH WILL HOLD CTY STOP BIT FOR US.2BIT POS 7 


653 


000137 


037 




RAR 




?BIT 4 MOVES TO BIT 3 


654 


000140 


A "7*7 

0^7 




RAR 




J BIT MOVES TO BIT 2 


/ srsr 

655 


AAA4 * A 

y 00 141 


13/ 




HOM 


E»A 


»E WILL HOLD KLINIK LENGTH BIT. 8BIT POS 2 


656 


AAA* AT 

000142 


037 




RAR 




f BIT 6 IS AT 4 FROM OTHER SHIFTS f NOW TO BIT 3 


657 


AAA* A"? 

000143 


ATI 

037 




RAR 




•AND TO BIT 2 




AA A*i » A 

000144 


157 




HOW 


L?A 


il WILL HOLD CTY LENGTH BIT, 8BIT POS 2 


659 


000145 


174 




HOV 


AfH 


? ORIGINAL BACK TO ACCUM 


660 


000146 


027 




RAL 




JBIT 5 TO BIT 6 


661 


000147 


027 




RAL 




f AND TO BIT 7 


662 


A A *i4 E*A 


127 




MOV 


StA 


iD WILL HOLD KLINIK STOP BIT. 8BIT POS 7 


663 














664 








iNOy BEGIN HASKINB OPERATIONS TO ISOLATE THE DESIRED UART BIT SETTINGS 


665 


000151 


171 




HOV 


A»C 


» MASK OF OCTAL 200 INTO ACCUM 


666 


000152 


244 




ANA 


H 


? ACCUM HAS ONLY CTY STOP BIT 


667 


000153 


147 




HOV 


H>A 


fCOF'Y BACK TO H 


668 


000154 


171 




HOV 


AfC 


5HASK TO ACCUM 


6&y 




^42 




ANA 


D 


5 ACCUM HAS ONLY A STOP BIT 


670 


000156 


4 m 

127 




HOV 


DfA 


ICOPY BACK TO D 


671 
672 








?N0W MASK FOR THE LENGTH BITS 


673 


000157 


170 




MOV 


Ail 


?HASK OF OCTAL 4 INTO ACCUM 


674 


000160 


245 




ANA 


L 


I ACCUM NOU HAS CTY LENGTH BIT ONLY 


675 


000161 


264 




ORA 


H 


fTHROy IN THE CTY STOP BIT 


676 


000162 


366 


112 


ORI 


B01001010 f ADD IN THE CONSTANT BITS 


677 

678 


000164 


in 


201 


OUT 


CTYCTL 


5 SET THE UART MODE... 


679 








;N0y SET MODE FOR THE KLINIK STUFF 


680 


000166 


170 




HOV 


AfB 


JMASK OF OCTAL 4 INTO ACCUM 


681 


000167 


243 




ANA 


E 


! ACCUM NOU HAS KLINIK LENGTH BIT ONLY 


682 


000170 


262 




ORA 


D 


STHROy IN THE KLINIK STOP BIT 


683 


000171 


366 


112 


ORI 


"B01001010 5ADD IN THE CONSTANT BITS 


684 


000173 


323 


203 


OUT 


REMCTL 


iSET THE KLINIK UART MODE 
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686 mm ENABLE THE UART TO RECEIVE ANB TRANSMIT 

687 000175 076 025 MVI A^BOOOIOIOI f BITS FOR UART CONTROL 

688 ?SET UART TO RECEIVE AND TRANSMIT 

689 000177 323 201 OUT CTYCTL !***** I/O WRT 200/025 ***** 
690 

691 000201 076 020 MVI Ai"020 ? ONE BIT TO SAY RESET THE UART 

692 000203 323 203 OUT REMCTL I RESET THE KLINIK UART BUT BO NOT ENABLE IT!! 
693 

694 000205 333 200 IN CTYDAT >***»* I/O RB 201***** READ 1 DUMMY CHAR OUT OF UART 

695 000207 333 202 IN REHDAT }***«* I/O RB 203***** READ I DUMMY CHAR OUT OF UART 

696 

697 000211 315 160 010 CALL BFRST UNIT TTY INPUT BUFFER 
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699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 

7 1 A 

711 
712 

713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 



♦SBTTL 8080 PROH CHECKSUMHER 

? CODE TO COMPUTE A CHECKSUM FOR EACH OF THE 2K 8080 PROM PIECES 

iFIRST COMPUTE THE CHECKSUMS FOR EACH PROM; THEN DO SIMPLE TEST ON THE 8080 

IRAM, .BEGIN WITH THE PROMS 



000214 


041 


000 


000 


LXI 


HfOO 


i START AT PROM ABBRESS 


000217 


257 






LCHKR1 XRA 


A 


} CLEAR ACCUM 




1 7 






MOV 


CfA 


•CLEAR B»C PAIR 




10? 






MOV 


B?A 


VhZ' TO BE USED AS ADDEND 




15 J 






hqv 


Ef A 


f CLEAR BfE PAIR 


000223 


127 






MOM 


B»A 


J'BfE* TO HOLD CURRENT COUNT OF CHECKSUM 




i 4 i 






A256S MOV 


C»M 


?GET A BYTE 


AAfr*"'*"^, 


AA7 
UHO 






1NX 


H 


(UPDATE MEM POINTER 










XCHG 




?PUT CURRENT CHECKSUM SUB TOTAL INTO HiL 


SfVV£.£f 








BAB 


B 


{THROW IN AN ADDEND 


000230 


353 






XCHG 




? RETURN H.L TO RIGHTFUL PLACE 










fNOU QUICK CHECK FOR THE END OF PROM 


000231 


175 






MOV 


AfL 


IGET LO ORDER OF CURRENT PROM ADDRESS 


000232 


247 






ANA 


A 


? SET CONDITION CODES 


000233 


302 


224 


000 


JNZ 


A256 


{IF »EQ. 0»yE'VE BONE 256 LQCS> IF .NE. < 










1 FALL TO HERE WHEN DONE A CHUNK OF 256.. SEE IF ITS ON A PROM BOUI 


000236 


174 






MOV 


AiH 


{ GET HI ORDER PIECE OF ADDRESS 


000237 


346 


007 




AMI 


"07 


!IF THIS .EQ. Of THEN WE ARE AT A BOUNBA! 


000241 


302 


224 


000 


JNZ 


A256 


ilF .NE Of THEN KEEP TRYING 



DO MORE 
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726 
727 
728 
729 
730 
731 
732 
733 
734 
7~ c , 

736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
74? 
748 
749 
750 
751 

753 
754 
755 
756 
757 
758 



» FALL THRU HERE WHEN WE'VE COMPLETED ft PROMS WORTH 



000244 174 

000245 017 

000246 017 

000247 017 

000250 075 

000251 207 

000252 365 

000253 345 

000254 302 315 000 



000257 365 

000260 041 175 005 

000263 076 010 

000265 062 000 040 

000270 006 377 

000272 176 

000273 057 

000274 117 

000275 003 

000276 353 

000277 Oil 

000300 353 

000301 043 

000302 072 000 040 

000305 075 

000306 302 265 000 



MOV 
RRC 
RRC 
RRC 
ICR 
ADD 

PUSH 
PUSH 
JHZ 



A»H SGET HI ORDER » WHICH CORRESPONDS TO "WHICH PROM* 
J JUSTIFY AT EDGE OF THE ACCOM 



A i DECREMENT MAKES "0-3' INSTEAD OF '1-4* 

A S DOUBLE THIS VALUE TO MAKE IT ON 16 BYTE BOUNDARIES 

PSW J SAVE THIS VALUE FOR A BIT 

H SAND SAVE OUR CURRENT POINTER 

DEV J IF DOING PROM ZERO* ELIMINATE THE ACTUAL CHECKSUM COUNT 



5 FELL. THRU TO HERE TO DO ACTUAL CHECKSUM ELIMINATION 

I EXECUTED WHEN CHECKSUMMING PROM 0. IT REMOVES THE ACTUAL CHECKSUM VALUES 

iFROrt THE COMPUTED CHECKSUM? AS WE CANNOT SOLVE THE CHECKSUM FEEDBACK 

SLOOP PROBLEM 



DEVLPJ 



PUSH 
LXI 

mi 

STA 
MVI 
MOV 
CMA 
MOV 
IMX 

xCHG 

DAD 

XCHG 

INX 

LDA 

DCR 

JHZ 



psy 



SAVE ACCUM 



Hf CHECKS SHrL GETS A POINTER TO THE LIST OF CHECKSUMS 
Ai8. ! START WITH A COUNT OF 8* FOR THE EIGHT BYTES WE MUST SUB 
780DT f SAME COUNT IN RAM) SO WE CAN USE ACCUM 
B,"0377 SIN B.C PAIR, ENSURE UPPER HALF ,EQ. -1 
A»M J GET CHECKSUM BYTE TO ACCUM 
S NEGATE IT 

S THROW IT INTO A 16 BIT ENTITY 

SAND MAKE B,C PAIR 2'S COMPLIMENT 

5 GET CURRENT COMPUTED CHECKSUM TO H»L 
S" SUBTRACT* THE BYTE WE'VE ASSEMBLED. (2'S COMP ADDITION) 



B 
H 

T80DT 

ft 

DEVLP 



SAND UPDATE THE POINTER INTO THE LIST 
i GET OUR CURRENT COUNT FROM THE RAM 
S DECREMENT 

SCONTINUE IN THE LOOP 



760 
761 
762 



000311 001 000 000 
000314 361 



LXI 



B.00 SNOW GUARANTEE B,C PAIR IS ALL GONE 



SFALL THRU WHEN FINISHED 

POP PSW S RESTORE ACCUM 
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764 000315 117 BEV! MOM CrA J GET CURRENT PROH NUMBER INTO C 

765 000316 041 175 005 LXI H> CHECKS f H»L POINTS TO THE TABLE OF CHECKSUM 

766 000321 Oil DAD B JftDD INDEXi AND NOW (H) PNTS TO EXPECTED CHECKSUM 

767 000322 116 MOV CfM (COPY EXPECTED CHECKSUM INTO C 

768 000323 043 IHX H 

76? 000324 106 MOM B»H itM Bi HAKES 'BiC PAIR 

770 000325 043 IHX H J AND KEEP COUNT UP 
771 

772 MOW H.E HAS CALCULATED CHECKSUM AND B»C HAS EXPECTED CHECKSUM 

773 000326 353 XCHG itiiL NOW HAS CALCULATED CHECKSUM 

774 000327 Oil DAD B f IF CHECKSUM OKi RESULT OF THIS SHOULD ,EB. 

775 000330 175 MOV AiL IGET LO PIECE 

776 000331 264 ORA H S THROW IN HI PIECE., CONDITION CODE FLAGS NOW SET 

777 

778 000332 353 XCHG ?D?E NOW HAS THE RESULTS OF THE ADDITION 

779 000333 341 POP H 5 BEFORE JUMPING ON CONDITION CODES? FIRST FIX REGISTER 

780 000334 302 356 000 JNZ CHKERR 5 IF H>L WAS ,NE, Of THEN WE HAD PROM CHECKSUM ERROR,,, 
781 

782 ? FALL THRU IF CHECKSUM WAS OK 

783 000337 361 POP PSW i RESTORE INDEX INTO 'WHICH PROM' WE ARE IN 

784 000340 376 006 CPI 6 ?SEE IF DONE ALL 

785 000342 302 217 000 JNZ LCHKR i JUMP BACK TO BEGINNING IF NOT DONE ALL 

786 

787 JFALL THRU IF DONE ALL,, PROMS CHECKSUM OK 

788 000345 303 373 000 JMP XXX230 »S0 AVOID THE ERROR PRINTOUT CODE 
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790 » YOU JUMPED TO HERE IF YOU ENCOUNTERED A CHECKSUM ERROR 



79" 




077 

V f i 


101 


110 




♦ASCIZ /?CHK / 


? at r i\um wnL.tri\wU! i r ri.1u.u7 Uvjl, h ij, v- t iu^ytivt. 


7Q? 

/ .• &> 


vvv v» JD 










PL I HE 


ROHHBG 

11U! ft tUU 


? r n I ii i ; u!1h 






00/ 








P C ;T 




JDDTKiT | TKJC fit fjJADD 




VVVUvl 




vvv 






Mm 


ROHMSG 


spjirr Tr? ddt kit 
?DUrr i U rfuru 


793 


000361 


361 








POP 


PSH 


> RETRIEVE PROM NUMBER 


794 


000362 


017 








RRC 




f DIVIDE DOWN, SINCE Ul DOUBLED IT BEFORE 


795 


000363 


074 








INR 


A 


SHAKE PROM TYPE-OUT BE 1-4 


796 


000364 


366 


060 






ORI 


"060 


SHAKE IT ASCII 


797 


000366 


315 


010 


004 




CALL 


PCHR 


(GO PRINT IT 


796 


000371 










PCRLF 




KCR-LF) 


(2) 


000371 


347 








RST 


4 




(2) 


000372 


002 








♦ BYTE 


2 
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OA A 

duu 










> FINAL STEP IS TO ENABLE PARITY DETECTION IN THE KS10 


801 










i DEFAULT IS? PARITY DETECTION ON.* DATA PATH PARITY DETECION ENABLED 


802 


000373 


076 


174 




XXX230J mi 


AiDEFLTE UNIT ENABLES TO BE ON 


803 
804 


000375 


7_0 *! 


100 




OUT 


SMPAR itttt* 1/0 HRT 100/174 ***** 


805 










5 LITTLE ROUTINE TO LOAD ALL DEFAULT CONSTANTS INTO THE 8080 RAM 


806 










» THIS ROUTINE SAVE ABOUT 40, BYTES OF PROM* OVER USING LXI'SfSHLD'S 












fhVI'S 1 STA'S 




DUO 




mi 


Ih-') 
o42 


A A A 


LXI 


HiKATIHl 5LIST OF DESTINATION LOCATIONS BEGINS HERE 


GAG 


AAAAftO 




a/M 


UUi. 


LXI 


DfPRHLST H.IST OF DATUMS FOR THE RAM INIT 


P1 ft 


AftftAft 1 ^ 


ft 71 






RAHMERt LDAX 


D f GET BYTE FROM THE DATA LIST 


Gil 


AAA A A/ 


ill 






CP I 


"0252 iTEST FOR END OF LIST 


bid 

Qi 7 


A Aft A 1 A 


71 *1 


Ail 


Aft1 


JZ 


XXX235 5 CONTINUE PROM INIT 


dl4 










t ELSE MORE RAM 


TO INITIALIZE 


1 *J 


AAA 2fi 1 

000413 


167 






H0V 


M,A fPUT GOOD STUFF IN RAM 


816 


A A A A 4 A 

000414 


A A"* 

04a 






INK 


H 5 UPDATE POINTERS 


317 


000415 


023 






IHX 


D 




AAA A i f 

000416 


"7 At 

303 


A AC 


AA4 

001 


JHP 


RAMMER 


81V 


AAA A "H 








PRHLSTJ 




82u 


AAA h 

0004^:1 


■"i A A 

244 


A A / 

006 




.ADDR 


KPAINI 5KATIMK2) KEEP ALIVE INITIAL COUNTER 


821 


000423 


377 






.IIF DFiSCECODi .BYTE -1 5FQR SCE ADR INIT 




AAA A^iA 

000424 


3/ / 






,IIF DFrSCEG 


I0D) .BYTE -1 .FOR SCE ADR INIT 




vvv liii 


I A A 

ds)Q 


A1 A 




.ADDR 


MODEO »M0DDIS(2) INIT THE KLINIK LINE TO MODE 




AAAA07 




ftfti 

VVi 




♦ ADDR 


REINI ? NORMAL INSTR ENDS WILL 60 TO REINIT 




AAA All 


ftl 7 

via 


ft AO 




.ADDR 


ENVBUF (ENVPNK2) APT PNTER FOR ENVELOPES SENT TO THE HOST 


no / 

h^o 


AAA a 77 

000433 


1/4 






.BYTE 


DEFLTE JPARBTd) INIT ENABLES TO BE ON 


C'2/ 


AAA A 7 A 

000434 


A •HA 

02U 






.BYTE 


TRPDEF JTRAPEN(l) INIT ENABLES THE HARDWARE TRAPS 




AAA A"?E 

000435 


A1 A 






.BYTE 


"014 >'MTAUBA(1) DEFAULT MAGTAPE UBA NUMBER IS '3' 


82? 


000436 


004 






.BYTE 


"04 jDSKUBA(l) DEFAULT DISK UBA NUMBER IS T 


830 


000437 


010 






.BYTE 


"010 » STATE (1) STATE BEGINS WITH DTR TRUE 


U31 


AAA A A A 

000440 


A A -i 

041 






.BYTE 


"041 fLSTMSG(l) FIRST APT MSG SHOULD BE 136CN0T OF 415 




AAA A A 4 

000441 








B OiOji 


2,0 5DEN.SLV(5) GET DEFAULT VALUE FOR ALL TAPES 




AAA A A 

00044& 








♦MTBASE* D 0f0 f i772 f 440 !HTBASE(5) INITIAL DEFAULT MTA RHBASE ADDRESS 


834 


0w4d3 








♦ DSBASE* D 0»Om776»700 »0SBASE(5) INITIAL DEFAULT DSK RHBASE ADDRESS 


835 


000460 


377 






.BYTE 


-1 fRPINI(l) SO CAN HAKE IT -1 


836 

83/ 


000461 








♦ BYTE 


"0252 5 END OF LIST MARKER 


838 


000462 


076 


025 




XXX235J MVI 


A f -025 ,'BIT TO RESET THE UART 


83? 


000464 


323 


203 




OUT 


REMCTL I RESET THE KLINIK UART AND ENABLE IT! ! 


840 


000466 


076 


010 




HVI 


A»"010 5 GET A BIT TO SET 'DATA TERMINAL READY" 


841 


000470 


323 


101 




OUT 


DTR f SET IT. 
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843 


000472 








PL1NE 


INIM3 


SPRINT VERSION AND ID 


(1) 


000472 


337 






RST 


3 


f PRINT LINE OF CHARS 


i 1 % 
ill 


AAA h "'7 

0004/4 








r HUUK 


TilTWC 

lNlnb 


* DHCT Til DDT aIT 

? bur r 111 hRIN l 


rf44 


AAA A"S£* 

0004/5 








INTQN 




* SET INTERNAL nODE 


(1) 


000475 


32? 






RST 


2 


»G0 SET INTERNAL MODE 


845 


000476 


315 


032 


012 


CALL 


EMI 


iDO PSUEDO EXAMINE TO SET MEM LATCHES 


o4e> 


A A AC A 4 




lid 


A1 i 
011 


uALL 


tfclfiD 


? EXAMINE THE BUS j iu btE IF ZLKO 


OA'/ 

m? 


000504 








EI 




J ENABLE INTERRUPTS 


bno 

Ad 


AAA'- AS" 




vll 


A 7 *? 


CALL 


CMP36 


J NOW CHECK RESULTS OF THE 'EB" CMD 


Q-iO 


AAA£*i A 


A1 1 


AAA 

040 




iADDR 


EMBUF 


f THE RESULTS READ FROM THE BUS 


CiC 1 
QC'-i 


UU0512 


1 1 it 


Ai £ 




»ADDR 


HADOOO 


1 VERSUS A WORD OF ALL ZEROES 


8o3 


OUv'514 




3. 6 i 


a a 

00 i 


JZ 


PURCHK 


»IF OK? GO TO AUTO BOOT 


854 










?FALL THRU IF ERRORS ENCOUNTERED 


855 


000517 








INT0FF 




i LEAVE INTERNAL MODE 


(1) 


00051? 


367 






RST 


6 


J GO EXIT FROM INTERNAL MODE 


356 


000520 








PLINE 


INIER 


f SAY "INITIALIZE ERROR' 


(1) 


000520 


337 






RST 


3 


5 PRINT LINE OF CHARS 


(1) 


000521 


013 


037 




« ADDR 


INIER 


i BUFF TO PRINT 


857 


000523 


303 


255 


001 


JHP 


REIHI 


5 AND 60 OUT 
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860 
861 
862 

864 
865 
866 
(!) 
•1) 
(!) 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
(1) 
(1) 
(1) 
877 
878 
879 
880 
U) 



000526 315 263 022 

000531 332 175 032 

000534 315 043 023 

000537 315 347 021 
000542 

000542 347 

000543 012 

000544 100 040 
000546 066 070 

000550 076 004 

000552 062 255 040 

000555 315 113 017 

000560 303 255 001 



000563 

000563 347 

000564 012 

000565 031 040 
000567 043 
000570 066 200 
000572 315 357 012 
000575 

000575 367 



J JUMP TO HERE IF DOING PWR FAIL RESTART 

PUR »FAIU CALL HICROP pREAB IN POINTERS AND READY TO GO 

JC C.BTERR »IF BOMBED » GIVE UP 

BMEM2CRAM 5G0 READIN THE MICRO-CODE 



CALL 

CALL. 

CLRRH 

RST 

.BYTE 

.ADDR 

mi 
mi 

STA 

CALL 

JMP 



BT.GO ? START MICRO-CODE 

TMPBF2 > CLEAR A BUFFER 

4 

10. 

THPBF2+5 

M,"Q70 J POWER FAIL START ADDRESS IS '70' 

A»4 fCODE 4 INDICATES PWR FAIL 

GOCODE J SAME IN RESTART INDICATOR 

STINT !G0 START MACHINE? USE INTERNAL MODE 

REINI (AND GO LET THINGS HAPPEN 



5FIRST THING TO DO IS TO CHECK IF THIS IS A POWER FAIL RESTART 
sNOTE? WE ARE STILL IN "INTERNAL' MODE HERE. .THINGS WONT PRINT 



PMRCHKi CLRRH 
RST 
.BYTE 
.ADDR 
IMX 
HVI 
CALL 
INTOFF 
RST 



IOAD 
4 

10. 

IOAD+5 
H 

Mf"0200 
Ell 



!CLEAR A BUFFER,. WE WILL GENERATE A '100000' 



» CLRRH PASSES PNTR..WE MAKE IT 'IOAD+1' 

5 SET BIT THAT MAKES IT '100000' 

fGO EXAMINE I/O ADDRESS 

? CLEAR INTERNAL MODE 

»G0 EXIT FROM INTERNAL MODE 
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mi 


A A ACT t 

0005/ 6 


Uld 






883 


AAA f A A 

uo06uo 


041 


031 


000 


884 


000603 


315 


134 


014 


885 










836 


000606 


072 


157 


A A A 

04v 


88? 


y*i a /i / >t * 

000611 


247 






bob 


AAA / 1 


•J 0.1 


OCC 

2jj 


AAi 

001 


4hi 










GOA 










891 










892 


000615 


333 


301 




GO 7 

Q7Q 


(SftiSLi 7 


MO 


AAO 




CI?*? 


VWQlI 


31 £ 


A £7 


A AO 


oV-j 










OD£ 
O70 


000624 


777 






87/ 


AAA/ 

0006 £0 


7 4 £ 


■f A A 
100 




QQG 
070 


AAA/ 7 A 


7 1 f } 

v,< I £ 


AAA 

000 


AAA 
000 


oV~ 

OAA 










OAi 
7 VI 


AAA/ 77 


01 -J 






Oft*) 


vUvOiIW 




OAA 


AAi 


0A7 
7Vd 










YV** 










OAS* 
7VJ 


AAA! 77 


A"*0 

07 2 


A* A 

Ui4 


AAA 

040 


QAI 

¥06 


AAA Z /SO 

000642 


7/4 £ 
•346 


OA A 




907 


000644 


312 


126 


001 


908 










909 










910 


000647 








(I) 


000647 


33? 






(1) 


000650 


365 


03? 




911 


000652 


315 


234 


021 



SYSUP! HVI C.150. {NOW DO AN AUTO BOOT SEQUENCE 

SYSUF1! LXI H.25. rUILL DO A DELAY LOOP 

CALL LTL00P { BY HAND? BY-PASSING USUAL MACRO GENERATION 

LDA RPEND {SEE IF A CHAR WAS TYPED TO END THE AUTO BOOT 

ANA A J SET CONDITION FLAGS 

JNZ REIKI J IF A CHAR MAS TYPED, NO AUTO STUFF r GO NULL JOB 

J WHILE WE HAVEN'T GOT ANYTHING TO B0, MIGHT AS ELL CHECK BOOT SWITCH 

JTG SEE IF THAT GOT PUSHED WHILE UE WERE SITTING HERE 

IN B00TSW i*«tt 1/0 RD/301 ttttt 

ANI 2 1 6 BOOT * BUTTON PUSHED IS "TRUE .L0.« 

JZ MO. 5 {THEREFORE, IF RESULTS .EQ. Z-BIT, THEN BUTTON PUSHED 

IN "0102 {READ AND SEE IF 'AC PWR LO" HAPPENED 

ANI "0100 f CHECK THE RESET SIGNAL 

JZ 0000 {ITS TRUE ,L0,, SO IF TRUE, RESTART THE MACHINE 

{FALL THROUGH IF NO BOOT BUTTON PUSHED 

DCR C 5STILL TIMING OUT., WAIT LONGER 

JNZ SYSUP1 {BACK WHILE WAITING 

{NOW SEE IF NEED AUTO BOOT, OR POWER FAIL RECOVERY s . 

LDA EMBUF+2 {FETCH UP BITS 12-19 

ANI "0200 5CHECK THE PWR SAVED BIT 

JZ P«R»FAIL ilF BIT SET, GO TRY A POWER FAIL RECOVERY 



{FELL THROUGH IF THIS M 
PL1NE AUTOMS 
RST 3 
♦ ABBR AUTOMS 
CALL BTAUT 



JST BE AN AUTO BOOT SEQUENCE 
,'SAY "BT AUTO' 
{PRINT LINE OF CHARS 
{BUFF TO PRINT 
{CALL THE BOOT 
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rt4 "1 

Tl3 










♦bBITL 


^BEGINNING OF 1 


3 ASIC CONSOLE NULL JOB... BEGINS UITH A PROMPT 


i*M h 

7 14 


AAA / STC 


A 7 i 


AAA 

000 


A A & 

044 


!\EiNi ♦ 


i VT 


SP»RAHST+"02000 > RESET STACK POINTER TO RE-INIT 


915 


vQv6oO 










IrLKb 


E0L 


? GUARANTEE END-ur-LlNt IN IK KEbEl 


916 


000662 










\A.Kd 


tRRCD 


?CLErR UJRRENI EKR0R LODE 


917 


000664 










LLKb 


ERRlBtl 


t CLEAR CURRENT ERROR CODE 


918 


000666 










PI DD 

LLKb 


KP i ON 


? ALWhYo CLEHfv iHE RErEAi rLftb 


i't <i ft 

ily 


AAA / ~>A 










ItKb 


»ifiDk!T 


*Pi fr TUL" i kin DDT kiT 8 CI Af* 

jLLR IHE NO rKINf rim 


990 


Owo/2 


041 


001 


04 i 




U-.L 


HrRPINI 


f GET POINTER TO BUFFER WHERE U£ SAME 


921 


000675 


042 


211 


040 




SHLD 


RPLST 


i THE COMMAND DISPATCH ADDRESSES* USED BY REPEAT 


922 


000700 


041 


lire 


001 




LXI 


KyKtlHl 


*7C pot urr«r pact th r-i lADAkiTrr n aj havo r*rT uror 
?lr 601 HERE? brirE TO OOhRhN 1 EE U HLWRib bEl HEKt 


923 


000703 


042 


350 


040 




CUi fi 

bHLil 


rcUKENjj 


i DACC DC TKJTT 1 HPATTHM Til TUCT yfl&MAI CKiri FiTCPATPLj 

?rHbo Kt INI 1 LUCh 1 iuN 111 IHE NUKflfiL t«U iUbrHlwn 




AAA"? A/ 

uOU/06 


olb 


160 


A1 r \ 






BFRST 


i RESET TTY INPUT BUFFER 


DOC 


AAA"? 4 < 










EI 




SHAKE SURE THAT BOMBS RESTORE THE INTERRUPTS 


926 


















927 


000712 


072 


156 


040 






HQPNfi 


? urxnD UOufx iiuiC r Lnu 


000 


A A All C - 


OA? 








ANA 


H 




OtA 






77S 

OO-J 


AA1 




J Hi. 




*tp nepD Mnr?r» Kin ppomptq. mo pp~! r» ^nTHTKin 

fir Uw£f\ 1 lUi'L ? PtU riWnr 1 0? r(U uf\ Lr f \iU 1 ni«u 


?ov 

7 ,5 1 




A 70 


0^1 


AAA 




LL'M 




iTr HfjTir UTI 1 DDT MI kjn ppnMPT^ 
? Ir nn nUl'tL wlLL if\IIMi nil r f\Unr ! v> 


010 


AAA70A 


Oil"? 










A 


JSET 8080 FLAGS 




AAA70C 




77ST 


AAi 
VVi 




JNZ 


NULLJ 


{SKIP PROMPT IF MM 


934 
935 


000730 










PCRLF 




? START FRESH UITH CR-LF 


(2) 


000730 


347 








RST 


4 




(2) 


000731 


002 








♦ BYTE 


2 




936 


000732 










PLINE 


KSPRHT 


5 PROMPT IS 'K810>' 


(1) 


000732 


337 








RST 


3 


5 PRINT LINE OF CHARS 


U> 


000733 


053 


037 






*ADDR 


KSPRHT 


» BUFF ' TO PRINT 
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938 
93? 

940 000735 041 222 002 

941 000740 333 102 

942 000742 346 100 

943 000744 312 000 000 



HiDCODE i NULL J JOB HILL . PROCESS COMMANDS ON 'END-OF-LINE* 



tHERE BEGINS THE NULL STATE LOOP,,,, 
f CHECK FRONT PANEL BOOT SWITCH 
NULL J : LXI 
NULL«: IN 

AN! 
JZ 



"0102 
"0100 
0000 



f READ AND SEE IF 'AC PHR L0* HAPPENED 
i CHECK THE RESET SIGNAL 

j ITS TRUE ,L0.? SO IF TRUE? RESTART THE MACHINE 



945 000747 

946 000751 

947 000752 

948 000753 

949 000755 

950 000756 

951 000757 

952 000762 

953 000763 

954 000764 

955 000767 
956 

957 
958 
959 

960 000770 

961 000771 

962 000773 
963 

964 
965 

966 000776 

967 001001 
968 

969 

970 001004 

971 001007 

972 001010 
973 

974 

975 001013 

976 001014 
U 5 001014 

<i> 001017 

977 001022 

978 001024 

979 001026 

980 001031 

981 001032 



333 302 

057 

117 

346 014 

017 

107 

072 124 

270 

345 

304 327 
341 



171 

346 001 
312 004 



062 130 
303 034 



072 130 
247 

312 034 



345 

041 220 

'315 134 

333 302 

346 001 

304 132 
34 i 



040 



033 



002 



040 
002 



040 
002 



001 
014 



034 



IN "0302 5 READ THE STATE OF THE KLINIK SWITCHES 

CMA 5 FIX THE HARDWARE INVERSION 

MOV CfA !SAVE RESULTS OF READ IN REG 'C 

AN I "014 -OFF ALL BUT THE 2 KLINIK BITS 

RRC J JUSTIFY "WORD-WISE' 

MOV BrA ISAVE THE KLINIK BITS FOR A SEC, 

LDA KLNKSW I GET THE CURRENT KLINIK SWITCH STATE 

CMP B >NOW SEE IF KLINIK SWITCH HAS CHANGED SINCE LAST TIME 

PUSH H ? SAVE H?L IT HAS OUR DISPATCH ADDRESS 

CNZ KLNKLT JIF COMPARE WAS ,NE. 0? THEN WE MUST CHANGE LIGHTS 

POP H ? RETRIEVE H»L SO THAT WE HAVE THE REAL DISPATCH 

?0K? NOW SEE IF WE ARE WATCHING CARRIER FROM THE KLINIK LINE, 
f AND IF WE ARE? SEE IF IT HAS GONE AWAY., IF KLINIK CARRIER GOES 
i AWAY FOR 2 SECONDS? THEN WE WILL HANGUP THE LINE 

MOV A?C I GET STATE OF THE CARRIER INTO ACCUM 

AN I 1 ?SEE IF IT IS SET 

JZ NOO ?IF THERE IS NO CARRIER? THEN SEE IF WE CARE 

5CARRIER WAS TRUE IF WE GOT HERE? SET FLAG SAYING THAT WE MUST WATCH 
?IF IT DECIDES TO GO AWAY ON US 

STA WATCHC ?SET FLAG SAYING WATCH THE KLINIK 

JMP NO »AND PROCEED WITH THE NULL JOB 

?60T HERE IF CARRIER WAS FALSE? SEE IF WE CARE 
NOO! LDA WATCHC ? FETCH UP THE 'WATCH' FLAG 

ANA A »SET FLAG'S 

JZ NO ?WE DONT CARE? JUMP 

? CARRIER WENT AWAY ON US. WAIT 2 SECONDS? IF STILL GONE? HANG EM UP 
PUSH H ?BEST SAVE DISPATCHER TYPE ADDRESS 

LONG, DELAY 2 jWAIT 2 SECONDS 
LXI H.200. * 2 ?SET UP THE TIMING COUNT IN H?L REG 
CALL LTLOOP » AND GO DELAY ABOUT 1 SECOND FOR EACH (300 COUNT) 
IN CARRIER ?***** I/O RD 302 ***** 
ANI 1 ?SEE IF TRUECLQW) OR FALSE (HIGH) 
CNZ KILL, KLINIK ?IT WAS STILL FALSEd.E HIGH)? HANGUP THE LINE 
POP H ?NOW RESTORE 

CLRB WATCHC ?AND SAY TO LEAVE THIS ALONE FOR A WHILE 
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no; 



983 

964 001034 333 301 

985 001036 346 002 

986 001040 302 051 002 
987 

988 001043 315 231 021 N0.5! CALL 

939 001046 303 335 001 JMP 



5 ELSE FALL THRU CAUSE ALL OK 



IN 

AMI 
JNZ 



bootsw mm i/o read 301 ***** 

2 sIS BOOT Sy SET??? (TRUE L0> BECAUSE OF INVERSION) 

Nl JSKIP NEXT INSTR IF FALSE ( I. E HIGH) 

BOOT i OTHERWISE... GO TO BOOT COMMAND 

NULL J } AFTER BOOT, ALL TTY INPUT WAITS ARE KILLED 
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991 
992 
993 
994 
995 
996 
99? 
998 
999 
1000 
1001 
1002 
1003 



001051 333 301 

001053 346 010 

001055 302 072 002 

001060 072 166 040 

001063 247 

001064 302 035 027 
001067 303 076 002 

001072 057 

001073 062 166 040 



5 CONTINUE NULL STATE STATUS CHECK 

} CHECK FOR SYSTEM PARITY ERRORS 

NU IN BOOTSM ****** I/O RD 301 ***** 

AMI "010 SIS PARITY ERR SIGNAL SET (TRUE ,L0.) 

JNZ NX2 ? SKIP NEXT INSTR IF NOT SET 
f IF YES SET? MUST CHECK THE PARITY ERROR 

LDA CHKPAR J GET FLAG TO SEE IF SHOULD REPORT PARITY ERRORS 

ANA A ? SET FLAGS 

JNZ RPTPAR ? IF NOT ZERO, MUST GO REPORT PARITY ERROR 
JMP N2 »ANB CONTINUE ELSE 

NX2! CMA ilF HERE, SET ACCUM ,EQ, -1 

STA CHKPAR 5 AND SET FLAG TO SAY REPORT PARITY ERR 
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1005 

1006 » CONTINUE NULL STATE STATUS CHECKS 

1007 i CHECK TO SEE IF RUN FLOP HAS DIED 

1008 001076 333 300 N2J IN RUNFP m***M I/O READ 300Q ***** 

1009 001100 346 010 AN I "010 5 IS HALT LOOP SET?? (TRUE .LQ.) 

1010 001102 302 124 002 Ml NX3 iSKIP NEXT INSTR IF NOT SET(CPU MUST BE 'RUNNING') 

1011 (FALL THRU IF HALT LOOP SET*. 



1012 


001105 


072 


231 


040 


LDA 


CHKHLT 


fGET THE FLAG THAT SAYS IF yE SHLB CHK HALT 


1013 


001110 


247 






ANA 


A 


J SET CONDITION CODES 


1014 


ooi m 


365 






PUSH 


PSU 


.SAVE FLAGS FOR LATER USE 


1015 


001112 


304 


257 


016 


CNZ 


HLTCM 


J IF FLAG SET, GO REPORT THE HALT 


1016 


001115 


361 






POP 


PS« 


sSET FLAGS BACK 


1017 


001116 


302 


313 


002 


JN.2 


CHKKA 


rIF YOU JUST HALTED, GO SEE IF RELOAD REQUEST 


1018 


001121 


303 


130 


002 


JHP 


N3 


f IF CLR, NO NEED TO REPORT.. THEY KNOW 



1019 

1020 , THIS AND THE "CONTINUE' CODE IS THE ONLY CODE 

1021 , IN THE CONSOLE THAT SETS THE 'CHECK HALT* FLAG.. 

1022 J AND U CAN ONLY GET HERE IF THE "HALT LOOP' FLAG HAS BEEN CLEARED, BY 

1023 f ANY MEANS.. AND WHEN U GET HERE, THE ACCUM MUST BE ZERO 

1024 001124 057 HX3S CHA } SET ACCUM = -1 

1025 001125 062 231 040 STA CHKHLT ,'ANB ZAP THE CHECK HALT FLAG.. 
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1027 
1023 



f CONTINUE NULL STATE STATUS CHECKS 

? CHECK TO SEE IF HQS MEMORY REFRESH CYCLE HAS DIED 



1 A 00 


AA1 1 7 A 


777 


1 At 




M7* 


IN REFERR »READ REFRESH ERROR BIT 


4 A"? A 

L\fM 


AAi 4 70 


•i«46 


A A « 






AN I 


01 (REFRESH ERROR TRUE?? (TRUE ,L0.) 


1U-31 

•1 A"V^i 








A AO 




JNZ 


NX4 JSKIP F0LL0UIN6 CODE IF NO REFRESH ERROR 












tCAf 1 


INTO THIS IF A REFRESH ERROR OCCURS 


1034 


00113/ 


072 


167 


A h A 

04Q 




LDA 


CHKREF fGET FLAG THAT SAYS CHECK REFRESH ..SEE IF SHOULD 


1035 


001142 


247 








ANA 


A »SET 8080 FLAGS 


1036 


001143 


345 








PUSH 


H 5 SAVE DISPATCHING ADDRESS 


1037 


001144 


304 


303 


032 




CNZ 


NOREFRESH »G0 REPORT REFRESH ERROR IF NECESSARY 


1038 


Q0114? 


341 








POP 


H (RESTORE DISPATCH ADDRESS 


1039 


001150 


303 


157 


002 




JHP 


N4 I AND CONTINUE AS IF NOTHING HAPPENED 


1040 
















1041 










5THIS 


IS THE ONLY CODE THAT CAN SET THE "REPORT REFRESH ERROR FLAG' 


1042 


001153 


057 






NX4? 


CMA 


»U GOT HERE ON A JZ, SO ACCUH MUST BE ZERO 


1043 


001154 


062 


167 


040 




STA 


CHKREF J AND SET FLAG TO -1 
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4 A A Cr 

1045 










? CONTINUE NULL STATE STATUS CHECK 


1046 










i CHECK FOR "END-0F-LINE" OR A RUNNING 10'S "KEEP-ALIVE' 


1047 


001157 


072 


156 


040 


N4I LDA 


USRMD tlS THIS USER MODE? 


1048 


001162 


247 






ANA 


A 5 SET CONDITION FLAGS 


1049 

1050 


001163 


302 


267 


002 


JNZ 


LIVE10 * IF YES? CHECK 10 INTERRUPTS 1 KEEP ALIVE 


1051 










f BEFORE D0INB ANOTHER COMMAND. SEE IF WE ARE ENVELOPING AND MUST SEND 


i052 










J OUT A PACKET 




<» AC? 


Mi 166 


0/2 


i'Ai 


A A A 

040 


LDA 


CSLMODE {ONLY DO ENVELOPE STUFF IF IN MODE 4 OR GREATER 


i AC h 


uQli/1 


•5/6 


AO A 




CPI 


.M0DE4 f CHECK IF MODE 4 


IVJJ 




7A0 


OA 7 


AA'"J 

Uv2 


JNZ 


EOL.LK INOT MODE 4> PROCEED AS NORMAL 


IUjo 














1 ft ^7 










PUSH 


H 5 SAVE H>L IT HAS THE DISPATCH ADDRESS 


J.UJO 


AA1 i "77 


01 J 


•"AC 


ft! A 


CALL 


DECNET (IF SOMETHING THERE, SEND IT OUT 


1 A r ,0 


AA1 OA"/ 


7£1 






POP 


H » NEED HiL AGAIN 


1 A4A 
IVOU 














"i A £ 1 










> OTHERWISE > CTY'S EOL FLAG 


•t A / *"t 










J BUT FIRST SEE IF THIS IS A REPEAT 


IUoo 


AA i *"«A1 


A"?*"' 

0/*: 


2i-i 


040 


eol.lk: LDA 


RPTON 1 GET THE REPEAT FLAG 




AA4 «"JA£ 

UUl2v6 








ANA 


A {SET THE PROCESSOR FLAGS 


1065 


A AH HA ■? 

UOU'07 


302 




020 


JNZ 


RPTRTN ,60 BACK TO THE REPEAT FUNCTION SO THAT HE CAN PROCEED 


1066 














1067 


001212 


072 


204 


040 


LDA 


EOL !GET VALUE OF EOL FLAG 


1068 


001215 


267 






ORA 


A f SET FLAGS,. IS EOL SET?? 


1069 


001216 


71 

■Jli. 


340 


001 


JZ 


NULLW » REMAIN IN NULL JOB LOOP IF NOT SET 


1070 














1071 










fELSE GO PROCESS A COMMAND 


1072 


001221 


351 






PCHL 


f RETURN TO COMMAND IN TTY INPUT > OR DECODE 
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1074 .SBTTL WTYPEIN COMMAND DECODER AND DISPATCHER** 



I ! J/.J 


Willi 








DCODEI XRA 


A 


iZERO OUT THE ACCUM 


1 A"?iL 

lv/6 


AA i ^-11 

vvlllo 


1 A"? 






MOM 


B?A 


SAND ZERO OUT TMP LOCATION 


10// 
10/6 


yuu'24 


021 


ll\} 


004 


LXI 


DiCMDLST }«D»E' NOW POINTS TO COMMAND LIST CHARACTER PAIRS 


1079 


001227 


052 


227 


040 


LHLD 


FIRST 


j'HtL" NOW POINTS TO FIRST CHARACTER TYPED AS COMMAND 


1080 


001232 


315 


220 


021 


CALL 


FNDARG 


» FIRST GO CLR ANY LEADING SPACES OR TABS FROM COMMAND LINE 


1081 


OOliUS 


332 


344 


AA*7 


JC 


NQRML 


J IF AT END-OF-COMMANDt ITS A NULL COMMAND 


1082 










5N0y BEGINS COMMAND LOOK UP LOOP,,, S H>L« POINTS TO FIRST COMMAND CHAR. 


1083 










I WHILE "DjE 8 


POINTS TO FIRST CHAR IN THE LIST OF ALLOWABLE COMMANDS 


1084 


001240 


032 






DCODLJ LDAX 


D 


fCMD LIST CHAR TO ACCUM 


1085 


001241 


267 






ORA 


A 


i IS THIS A ZERO BYTE?? 


1086 


001242 


312 


261 


002 


JZ 


NXMBC 


J IF YES » END OF LIST 


1087 


001245 


023 






INK 


D 


1 WHILE YOU R AT IT UPDAT CMD LIST PNTR 


1088 
1089 


001246 


276 






CMP 


M 


{ COMPARE CMD LIST CHAR WITH TYPED CHAR, 


1090 


001247 


312 


203 


003 


JZ 


HTCH1 


ilF THEY MATCH » BR TO *MTCH1' 
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1 AO'? 
iV7£ 










f HERE IF M0 MATCH. .UPDATE CMD LIST PNTR TO START OF NEXT COMMAND? 












(THEN CHECK IF TRIED ENTIRE LIST YET.. 


•i fid h 

1 V 4 










!IF TRIED ENTIRE LIST. 


REPORT COMMAND ERROR AND BACK TO NULL JOE LOOP. 


109«ji 










i IF NOT TRIED ENTIRE LIST YET* LOOP BACK AND TRY SOME MORE 


1U?6 










MISS2J INX D 


? BUMP PNTR PAST SECOND CHAR OF CMD 


4 Art "V 


001 if 53 


02a 






INX D 


5 BUMP PAST THE DISPATCH ADDR 




VviAj4 








INX D 








AA/» 

Uv4 






IMR i 


} UPDATE NUMBER OF 'TRIES' 


* i A A 


AAi 


7A7 


OA A 


AA'l 


JMP DCODL 


»IF NOT, JUMP BACK AND TRY AGAIN 


Xlvi 
























»IF FALL TO HERE? HAS ILLEGAL COMMAND.. CLEAR REST 


1103 










•UP TO EOL... TYPE ERRQ 


R MESSSAGE AND BACK TO NULL JOB LOOP 


1104 










5F1RST STEP IS CLEARING 


BAD COMMAND FROM COMMAND BUFFER 


1105 


001261 








NXMDC! PLINE CMDNG 


i COMMAND NO GOOD 


(1) 


001261 


337 






RST 3 


» PRINT LINE OF CHARS 


SI) 


001262 


026 


037 




.ADDR CMDNG 


iBUFF TO PRINT 


1106 














1107 


001264 


303 


153 


032 


JMP MMERR 


SAND BACK TO PROMPT.. 
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1109 










1110 










1111 










2112 










1113 










1114 


00126? 


333 


301 




1115 


001271 


247 






1116 


0012/2 


365 






1117 


001273 


364 


237 


007 


1118 










A i i 










11^0 










•S i «"\ i 

lul 


AA<J ^"7/ 


It i 

361 








U012/7 


364 


>nl 


A A"? 

003 


1123 




o!2 


Hi 


AA1 

002 


1 1^4 












001305 


315 


023 


003 


1126 


001*310 


302 


335 


AA4 

00 1 


112? 




















11 2 y 


OU1323 


041 


244 


006 


1130 


001316 


042 


342 


040 


1131 










1132 


001321 

AA-5 "?04 

001321 


327 






1133 


A J "*7 <"t /"t 

00 i 322 


363 






1134 


001323 








(1) 


001323 


315 


216 


030 


(1) 


001326 


031 


000 




1135 


001330 


373 






1136 










113? 


001331 








(1) 


001331 


367 






1138 


001332 


072 


015 


040 


1139 


001335 


027 






1140 


001336 


332 


035 


003 



tSBTTL ****CTY SERVICE**** 

vCOBE ENTERED FROM THE MULL JOB LOOP WHENEVER HE ARE IN USER MODE (MODE 3) 
f CODE CHECKS TO SEE IF CHAR IS AVAILABLE FROM THE 10ft ALSO IF KEEP ALIVE 
j COUNT IS ACTIVE* UE ALSO CHECK FOR REBOOT REQUESTS (AS IN 20 SYSTEM MONITOR'S 
f "BUGHALTS") 

LIVE10: IN SMSTS fSEE IF INTERRUPT FROM THE 10 IS PENDING 
ANA A ISET CONDITION CODES 
PUSH PSy J SAVE FLAGS FOR A LITTLE BIT 
CP CHRRDY J IF PLUS. A CHARACTER IS READY, GO PROCESS 

IFIRSTs WE ONLY WANT TO CHECK THE KEEP-ALIVE COUNTER EVERY SECOND, 
i FIRST WE WILL CHECK OUR COUNTERS AND SEE IF TIME TO CHECK KEEP-ALIVE DATA 
POP PSW » GET FLAGS BACK 

CP FAKLIT 5 IF TYPED A CHAR, THEN DOWN COUNT FOR TIME WASTED 
JZ CHKKA I IF ZERO, DO WHAT MUST BE DONE 

CALL DTI ME , ALWAYS DO IT AT LEAST ONCE 

JNZ NULLJ J IF NOT ZERO, IT HASN'T BEEN A SECOND YET, BACK NULL 

5 WHEN YOU FALL TO HERE, IT IS TIME TO CHECK FOR "KEEP-ALIVE* OR 'RELOAD' 
CHKKA J LXI H,KPAINI } FIRST WE MUST RESET OUR MAJOR LOOP COUNTER 

SHLD KATIM1 5 EACH NUM IN THIS LOC ,EQ. ,444 SECONDS BETWEEN CHECKS 

INTON IDON'T PRINT THIS CRUD 

RST 2 JGO SET INTERNAL MODE 

DI !N0 INTERRUPTS 

EXAM 31 IMOS MEMORY LOC 31 HAS THE INFORMATION 

CALL EXAMSH 5 AND DO EXAM ASSUMING SHORT ADDRESS 

♦ADDR 31 JADDR TO BE ZAPPED PASSED AS TRAILING ARG 
EI ? OK,, INTERRUPTS 

INTOFF } INTERNAL MODE OFF NOW 

RST 6 ,60 EXIT FROM INTERNAL MODE 

LDA EMBUF+3 J GRAB THE RELOAD BITS,. WE CERTAINLY NEED THOSE 

RAL ! 'FORCED RELOAD* SHIFT INTO CARRY 

JC PRELOAD 5 IF "RELOAD' SET, GO EXECUTE A RELOAD 
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1 1 AO 










.SNOW SEE IF KEEP- ALIVE ACTIVE 


1143 


001341 


027 






RAL 


, 'KEEP-ALIVE' BIT INTO THE C-BIT 


1144 

i •* AK 


001342 


322 


335 


001 


JNC 


NULLJ SIF ITS NOT SET, GO BACK TO NULL JOB 


1i4j 

•» 1 Ai 

i mo 










5 KEEPING A WATCH ON THE KEEP ALIVE COUNT. , .BLINKY LIGHTS 


i i hi 
114/ 


Aft 1 1 A c 


A 70 

0/2 


lift 

460 


AAA 

040 


LBA 


STATE J GET CURRENT STATE OF THE LIGHTS 


114b 


Aft i fCft 

001 3 jO 


ill 






MOV 


D,A 5 SAVE IT JUST FOR A LITTLE BIT 


i * AO 


AA4 


1AL 

346 


3/3 




ANI 


STMSK »CLR THE 'STATE' LIGHT FROM THE CURRENT SELECTIONS 


llDU 
1151 


0yl4j4 


1 7*7 
13/ 






MOV 


E»A » AND NOy SAVE THIS LITTLE BIT IN A REGISTER 


1152 


001354 


172 






MOV 


A»D ? GET BACK THE ORIGINAL 'STATE' 


ild4 


AAi 7^ 


Ud/ 






CMA 


1 "BLINK" 


j.1j4 


AA1 1&.L 
001 4 J6 


446 


Aft 4 

004 




ANI 


STBIT J ONLY WANT TO BLINK THE SINGLE LIGHT 


i i cs; 

A. i Jvi 


Aft 1740, 








ORA 


E » THROW IN THE PART THAT IS AS UAS.. 


1 A JO 






7/ A 


AAA 

l J 7V 


STA 


STATE jPUT THE WHOLE MESS BACK, THE NULL LOOP WILL BLINKY 


1 1 

A A 'J i 


AAi 7£A 








OUT 


LIGHTS f BLINK THE LIGHTS HERE 


1 1 ^ft 

1 1 e ,9 


AAI ILL 

VVivJUO 


710 

■5..'/ i. 


775. 


(W 
w* 


JM 


NULLJ i AND IF MINUS, WE ARE "SHUTIN6 DOWN", LET LIGHTS 60 


I i-JT 

I I hi) 










>WE HID AN EXAM 31 A VERY SHORT TIME AGO, SO THE EXAMINE BUFFER SHOULD STILL 


1 101 










iHAVE A VALID 


'KEEP-ALIVE' UPDATE COUNT IN IT 


1 1 k'l 

1 i. Q£ 


AA1771 


v4,L 


OC.A 
i. Jv 


AAA 


LXI 


H,KACNTR ;get POINTER TO THE PREVIOUS "KA' COUNT 


i i Z7 


uuii/4 


A "70 

0/*: 


Ai 7 
0.14 


A A A 

040 


LBA 


EMBUF+1 J GET WHAT SHOULD BE AN UPDATED 'KA' COUNT 


i i LA 

X164 


0014/ / 


•07 Z 

2/6 






CMP 


M 5 COMPARE . . BETTER BE DIFFERENT 


1165 


A A 3 AAA 

001400 




4 7A 

130 


Aft 7 

004 


JZ 


DIEING ilF SAME, GO SEE IF CPU IS REALLY DIEIN6 


i i Li 
1166 










J FALL THRU IF THE COUNTS WERE BIFF*. SAVE THE NEW COUNT 


llo/ 


AAi 4A7 

001404 


15/ 






MOV 


H#A »NEW COUNT GOES TO RAM, OVERWRITES THE OLD 


lldb 


AAi A Ail 
001404 








CLRB 


BIECNT J CLEAR THAT DIE COUNT 


lid? 


AA1 AfkL 

001406 


7A7 


77^ 
44j 


AA1 
001 


JMP 


NULLJ (BACK TO THE NULL LOOP 


11/0 














1 1 / 1 










? ROUTINE FOR WHEN DOING CTY OUT PUT THE LIGHTS STILL BLINK AT A REASONABLE 


i i / £ 










5 RATE 




1 1 11 

11/6 


A A 1 A 1 1 




5 A O 

£42 


AAA 
040 


FAKLITi LHLli 


KATIM1 IGEI CURRENT COUNT FOR BETWEEN THE LIGHTS 


li/4 


A A * 414 

00i414 


1/u 






MOV 


A,L I6ET LO ORDER PIECE 


A i 7 c 

lilxi 


win I J 




4/ 4 




AMI 


"0374 JTWEEK LITE COUNT, CAUSE OUR TYPING MESSED UP TIMER LOOP 


il/6 


0ul41/ 


i E"7 

1j/ 






MOV 


L,A 5PUT LO ORDER PIECE BACK (MASKING .EQV. TO SUBTRACT 100) 


1177 


AA-f A*""ift 


i03 


U27 


A AT 


JMP 


DTM1 SAND PROCEED 


1178 










r ROUTINE TO Dt 


IUN COUNT KEEP ALIVE COUNTER 


117? 


001423 


052 


342 


040 


DTI ME. LHLD 


KATIM1 , GET A 16-BIT MINOR LOOP COUNTER 


1180 


001426 


053 






BCX 


H J DECREMENT THE COUNTER 


1181 


001427 


042 


342 


040 


BTM11 SHLD 


KATIM1 » AND PUT IT BACK 


1182 


001432 


175 






MOV 


A,L jNOW CHECK THE COUNT FOR .EG. 


1183 


001433 


264 






ORA 


H J'OR" HI PIECE WITH THE 'LO' PIECE 


1184 


001434 


311 






RET 
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1184 (ROUTINE TO ENTERED WHEN THE "FORCE RELOAD" BIT HAS BEEN SET BY A RUNNING 

1187 (PROGRAM IN THE KSIO 



1188 


001435 








PRELOAD! CLRB 


NOPNT 


5 CLEAR THE NO PRINT FLAG 


118? 


001437 








PLINE 


FRCMSG 


J PRINT HESSAGE TO INDICATE THE FORCED RELOAD 


(1) 


001437 


337 






RST 


3 


f PRINT LINE OF CHARS 


<1) 


001440 


336 


037 




♦ABBR 


FRCHbG 


? BUFF TO PRINT 


1190 


001442 


076 


002 




HVI 


Af 2 


?BIT 34 IS THE APPROPRIATE GUY ON A FORCED RELOAD 


1191 


001444 


062 


255 


040 


ST A 


GOtODE 


f SET BIT IN THE 8080 RAH BUFFER 


4 4 ft*t 


00144/ 


333 


TAA 

30S; 




IN 


RUNFF 


» NOW stE IF WE MUST HALT THE PROCEbbQR 


1193 


001451 


346 


010 




AN! 


"010 


(WE DID NOT INVERT SIGNAL. 0=HALTEDi 1=RUNNING 


1194 
















4 4 f'.ST 

ilYO 


A A 4 AST"? 








IN i ON 




5D0NT PRINT WHAT HAPPENS TO THE HALT 




A A 4 AC* Tf 








Kb 1 


2 


fGO SET INTERNAL MODE 


1196 


001454 


304 


207 


017 


CNZ 


HACHD 


f HAKE SURE THE PROCESSOR IS STOPPED 


1197 


001457 








INTOFF 




iOK TO PRINT NOW 


\\) 


001457 


367 






RST 





(GO EXIT FROM INTERNAL MODE 


4 4 nn 

1198 


AA4 A / A 

001460 


A "7**1 

072 


256 


040 


LDA 


SECRET 


SSECRET LOCATION 


1199 


AA4 A / "? 

0U1463 


247 






ANA 


A 


.SET 8080 FLAGS 


l^UU 


A, A 4 A / A 


•7 a n 




00 i 


JNZ 


REM 


5IF FLAG SET( yE WILL NOT DO AUTO RELOADS 


uOl 
1202 


AA4 A / "J 

v014fi7 


Oa 


A A k 

004 


ftfir. 

Otte 


LXI 


Dr01004 {POINTER TO THE MONITOR PRE-BOOT 


1203 


001472 


315 


266 


022 


CALL 


FILEINIT (GO READ IN THE HONITQR PRE-BOOT 


1204 


001475 


332 


231 


032 


JC 


L.BTERR f IF ERROR. FATAL OUT 


1205 

1206 


001500 


041 


001 


000 


LXI 


Hil 


(NO ERR( NOW GO START THE MICRO-CODE AT LOC 1 


1207 


001503 


315 


215 


016 


CALL 


SM1.5 


(START HICRQCQBEf ADDRESS PASSED IN HiL 


1208 


001506 








LONG* DELAY 2 


(GUARANTEE THAT THE "SM 1* HAS TIME TO FINISH 


U) 


001506 


041 


220 


001 


LXI 


H(200, 


* 2 (SET UP THE TIMING COUNT IN H(L REG 


(1) 


001511 


315 


134 


014 


CALL 


LTLOOP 


(AND GO DELAY ABOUT 1 SECOND FOR EACH (300 COUNT) 


1209 


001514 


315 


355 


021 


CALL 


BT,GQ1 


(NOW FIX PARITY AND OTHER THINGS THAT WE BROKE 


1210 


00151? 


315 


320 


021 


CALL 


INFOBT 


(AND PASS THE SOURCE OF THE PRE-BOOT IN MOS MEM 


1211 
1212 


001522 


315 


263 


021 


CALL 


LB, 601 


(AND GO EXECUTE THE BOOT CODE 


1213 


001525 


303 


335 


001 


JHP 


NULLJ 


(AND BACK TO NULL JOB 


1214 
1215 


001530 


041 


257 


040 


HIEING! LXI 


HjDIECNT fGET THE NUMBER OF CONSECUTIVE "NO CHANGES' IN Kf 


1216 


001533 


064 






IHR 


K 


(INCREMENT 


1217 


001534 


176 






HOV 


A>M 


(GET COUNT INTO ACCUM 


1218 


00 i 535 


376 


043 




CPI 


KATIMX 


(NOW SEE IF OFFICIAL DEATH 


1219 


001537 


372 


335 


001 


JM 


NULLJ 


(IF NOT YET? GO BACK AND WAIT FOR MORE 



1220 

1221 SEISE) FALL ON THROUGH TO THE RELOAD CODE 
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1223 ? ROUTINE ENTERED WHEN THE 'KEEP-ALIVE' COUNT DOES NOT CHANGE j AND WE 

1224 i ISSUE A RELOAD BECAUSE HE BELIEVE THAT THE PROGRAM RUNNING IN THE KSIO 

1225 (HAS DIED 



1226 


001542 








CLRB 


NOPNT 


? CLEAR THE NO PRINT FLAG 


1227 


001544 








CLRB 


DIECNT 


A A lift ftT m f'T"T "PI ir" TjTP* r.A) \\ 3T - 

? AND RESET THE DIE COUNT 


1228 


001546 








PL I HE 


KAMSG 


i PRINT HESSAaE TO INDIlATE hEEP-ALIvE FAILURE 


(1) 


001546 


337 






RST 


3 


? PRINT LINE OF CHARS 


(1) 

1229 


001547 


331 


037 




♦ ADDR 


KAMSG 


?BUFF TO PRINT 


1230 


001551 








INTON 




?DQNT PRINT ANY OF THIS bTUFF 


(IS 


001551 


327 






RST 


2 


* nn p*p"t TviTPr.wii \inTtf 

?G0 SET INTERNAL NODE 


1241 


001552 


ilti 


20? 


01/ 


1/AlL 




f FIRST j STOP THE MACHINE 


I26i 


001555 


36i 






ft T 

Hi 




f NO INTERRUPTS i TILL THE EXAMINE lb COnPLETE 




QOiDDS 








tXAM 


/I 


ftXAnINt THE INbTKUClIuN IN 71 


(15 


001556 


315 


216 


030 


CALL 


EXAMSH 


f AND DO EXAM ASSUMING SHORT ADDRESS 


(!) 


001561 


071 


000 




• ADDR 


71 


» ADDR TO BE ZAPPED PASSED AS TRAILING AR6 


1234 


001563 


373 






EI 




?0K TO INTERRUPT N0H 


1235 
















1236 


001564 


076 


001 




NVI 


A>1 


5KEEP ALIVE CODE IS A 1 


1237 


001566 


062 


255 


040 


STA 


GOCODE 


»SAVE FOR PASSING TO KS10 


1238 


001571 


315 


043 


017 


CALL 


EXINTH 


iNOU 60 EXECUTE L0C 71 IN PAGE OF MONITOR SPACE 


1239 


001574 


315 


164 


017 


CALL 


COCMD 


5 LET THE PROCESSOR RESUME 


1240 


001577 








INTOFF 




I MAY RESUME PRINTING THIS STUFF 


(1) 


001577 


367 






RST 


6 


;go exit from internal mode 


1241 


001600 


303 


3^5 


001 


JHP 


NULLJ 


SAND BACK TO NULL JOB 
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1 ^At 










.SBTTL WCQMHAND DECODER CONTINUED** 


,1^44 










? CONTINUE COMMAND DECODER,,,,,. 


1^4^ 










5HERE IF FIRST CHARACTER HATCHED, SEE IF SECOND CHAR MATCHED, 


1246 


A A 4 t ATT 


04^ 






MTCH15 INX 


H } INPUT BUFFER NOU PNTS TO SECOND CHAR TYPED 


1247 


001604 


032 






LDAX 


D » ACCOM GETS SECOND 'EXPECTED" CHAR FROM COMMAND LIST 


1248 


001605 


276 






CMP 


M ;NOU, DOES SECOND CHARACTER MATCH?? 


1249 


001606 


312 


215 


003 


JZ 


MTCH2 5JUMP IF YES, SECOND CHAR MATCHES. 


1250 














1251 










» HERE IF SECOND CHARACTER DID NOT MATCH, RESET "HfL" 1 GO BACK TO TRY AGAIN 


1252 


AA4 / 4 i 

QOlitll 


AC"? 

05j 






DCX 


H (RESET 'HfL* 


1253 


001612 


303 


252 


002 


JMP 


MISS2 (AND CONTINUE PROCESSING 


1254 














1255 










I6ET TO HERE IF 


SECOND CHARACTER MATCHED 


1256 


001615 


023 






MTCH2 I INX 


D i UPDATE PAST 2ND CHAR 


1257 


001616 


043 






INX 


H (UPDATE BUFFER POINTER 


1258 
125? 


001617 


315 


245 


033 


CALL 


SEPCHR IGET RID OF SEPARATORS 
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1261 
1262 
1263 
1264 
1265 
1266 
126? 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 



001622 042 223 040 



001625 
001626 

001627 
001630 
001631 
001632 
001635 



001636 
001637 
001642 

001645 
001650 
001651 



170 
353 

136 
043 
126 

041 344 003 
345 



247 

062 000 040 

312 271 003 

072 131 040 
247 

314 303 020 



? "H? L" SHOULD NOW POINTS TO THE CilB BUFF 
f'DiE* NOW POINTS TO THE DISP ADDR 

5 OR ELSE TO *EOL' CHAR IF CHD HAS NO ARGS.. ANYTHING ELSE IS COMMAND ERROR 
SHLD * ARGi JSAVE "HiL" POINTER TO FIRST ARG, 

MOM A>B ;NDU LOAD ACCUM WITH NUMBER "TRIES" TO FIND MATCH 
XCHG iDISP POINTER NOW TO "H»L* 

MOV EjM 5 SET LOU ODER HALF OF "TABLE ENTRY" INTO "E* 

INX H »BUMP POINTER 

MOV D»M JSET HIGH ORDER HALF OF "TABLE ENTRY" INTO "D* 

LXI HfNORML 5SET A RETURN VALUE 

PUSH H 5 AND PLACE ON STACK FOR RETURNS 

? PIECE OF CODE TO SAVE EACH COMMAND DISPATCH ADDRESS IN THE RAM BUFFER 
?S0 THAT THE REPEAT FUNCTION CAN DISPATCH THRU THE LIST WITHOUT DECODING 
?THE TYPED IN COMMAND STRING AGAIN.. 

ANA A J CHECK IF THIS IS RP COMMAND.. IF YES MUST 
STA T80DT JSAVE WHICH COMMAND IS BEING EXECUTED 
JZ CMDGO J JUMP SO THAT CMD LST BUFFER NO CHANGED 

LDA CMOS.. 5 SEE IF THIS IS THE FIRST COMMAND IN A LINE 
ANA A ?SET FLAGS 

CZ RPNEW I IF IS THE FIRST COMMAND? RESET REPEAT BUFFER POINTERS 



1286 


001654 


052 


211 


040 


LHLD 


RPLST 


» GET POINTER TO CURRENT FREE BUFFER LOCATION 


1287 


001657 


162 






MOV 


HiD 


jSAVE HI ORDER PIECE OF DISPATCH ADDRESS 


1288 


001660 


043 






INX 


H 


» UPDATE MEM POINTER 


1289 


001661 


163 






MOV 


M*E 


I SAVE LO ORDER PIECE OF DISPATCH ADDRESS 


1290 


001662 


043 






INX 


H 


J UPDATE POINTER TO FIRST FREE., 


1291 


001663 


257 






XRA 


A 


JCLR ACCUM 


1292 


001664 


057 






CMA 




5 IN ORDER TO MAKE IT -1 


1293 


001665 


167 






MOV 


MfA 


>SET -1 AS END-OF-LIST INDICATOR 


1294 


001666 


042 


211 


040 


SHLD 


RPLST 


f AND RESTORE THE POINTER 
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1 OG£ 
I £70 










«LUm I null Hit U 1 or fi I LH 


lillf 


0016/ i 


3b3 






T'lttTifn* VP UP * OCT IT AC! T TklTDVS T JtlTA iU 1 1 


I29y 










fANli iuSPATCH TO ACTUAL COnnAND CODE 


I2?y 


/V ft J / 

Wl6// 




344 


032 


CALL EOCftL f SET C-BIT 1 10 SAY tNB~0F~LINE IF TRUE 


1300 


00 167 j 


365 






rllSH PSw fSflvt bTATE OF PRQCESbGR FLAGb 


1301 


0016/6 


324 


31/ 


003 


CNC KEnARG ?IF NU C-BIT i CHB HttD ARb**HUST REHEflBER IT 


1302 












1303 










? FINALLY SEE IF C0HHAND REQUIRES AN ftRb 


1304 


001701 


322 


311 


003 


JNC CHDG09 » IF REQUIRES NO hRG? bO 60 GU 


laOb 












1306 










*rALL Hfcht IF lunnAND hm NO Ahb* *SLE IF iT bHUuLii HAvE HAD ONE 


130/ 


001704 


174 






nuv AjH fbET ril ORDER OF DISP ADDRESS 


i 7A0 

130o 


AA1 ~}f\E 

001 /0j 


A***"? 






hAL fbillH hi OKl'th Bll \B1T1j) 1NI0 THE C-bIT 


1 1 AO 

13y? 


001/06 




Hi 




Jt hhflhu fwtLL ir otl f it Nttutu fthbt* KtrUKi SHftl Hftu 


1310 












1311 










5ELSE ALL OK., CLEAR BIT15 IF SET AND PROCEED 


1312 


001711 


174 






CMDG095 NOV A»H I HI ORDER TO ACCUM 


1313 


001712 


346 


177 




AN I "0177 5 CLEAR BIT 15 NO MATTER WHAT 


1314 


001714 


147 






H0y HfA f PUT HI ORDER BACK 


1315 


001715 


361 






POP PSW jGET THE PROCESSOR FLAGS BACK 


1316 


001716 


351 






PCHL jADDR TO PC TAKES THE DISPATCH 
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} ROUTINE TO REMEMBER I 


1319 


001717 


' ? i ST 

365 






l\LnhKb* rUSH 


DC! I 








OOu 


A h A 

040 


LlJA 




1321 


001723 


247 






AHA 


A 

A 


1322 


vM/i/24 




342 


AA*7 

003 


17 
JZ 


htnAhl 


1324 


001727 


345 






rUbn 


H 


1325 


001730 


Qiu 


211 


AAA 

040 


I Hi ft 

LriLD 


RPLST 


1326 


001733 


053 






DCX 


H 


1327 


001734 


053 






DCX 


H 


1328 


001735 


176 






MOV 


A*M 


132? 


001736 


366 


200 




ORI 


"0200 


1330 


001740 


167 






MOV 


M,A 


1331 


001741 


341 






POP 


H 


1332 


001742 


361 






REMAR1I POP 


PSU 


1333 


001743 


311 






RET 





COMMAND HAD AN ARB*. USED BY REPEAT FUNCTION 
5 SAVE FLAGS 

5 SEE IF THIS MAS A REPEAT, IN WHICH CASE, DO NOTHING 

JSET CPU FLAGS 

5 IF WAS RP, GET OUT 

5 AND SAVE DISPATCH ADDRESS 

» GET THIS DISPATCH FROM REPEAT LIST 

J BACK UP ADDR POINTER TO POINT 

? HI ORDER PIECE OF ADDRESS 

iNQW GET HI ORDER PIECE INTO ACCUM 

? ADD SIGN BIT TO REMEMBER ARG 

INOy PUT IT BACK 

! RESTORE DISPATCH ADDRESS 

fAND RESTORE C-BIT FROM PREVIOUS "EOCML" 

>AND RETURN 
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4 77T 










.THIS IS "NORML*. FOR NORMAL RETURNS., IT SETS UP PREVIOUS POINTERS 


4 IT t 

1336 










SAND THEN GOES i 


BACK TO PROMPT 


134/ 


AA4 "7 A A 

001744 


A A 4 

041 


^04 


A A A 

u40 


NORMLt LXI 


H.EOL .GET PNTR TO COMMAND COUNT 


1338 


00174/ 


1/6 






MOV 


A.H 5 COPY TO ACCUM 


13^7 


AA4 "}CA 

001/50 


A "7 ST 

075 






DCR 


A .DECREMENT IT 


1,540 


AA4 ""JIT 4 

001751 


167 






MOV 


Mi A .PUT BACK WHERE U GOT IT 


i "? a 4 










5 IF COUNT WAS DOWN TO ZERO, THEN RESET IT 


4 ** A "l 

1342 


001752 


075 






DCR 


A 5 IF COUNT WAS ZERO? THIS HAKES IT NEGATIVE 


7 A7 

1343 


A A 4 "7C7 

001753 


770 
3/2 


A Ail 

004 


AAA 

004 


JM 


NORDIS .IF EOL HAS GONE MINUS. TAKE NORMAL DISPATCH 


4 "7 A A 

1344 


001/56 


74 C 

4ID 


"7*74 

4/1 


AA7 

004 


CALL 


FXNXT .OTHER WISE BE CLEVER t CRYPTIC 


1345 


AA4 "?/ 4 

001/61 








CLRB 


ERRCD (AND CLEAR ERROR CODE 


4 "i A f 

1446 


A A 4. "3/7 

001763 


A A 4 

u41 


2*: 2 


AA1 

002 


LXI 


H.DCOBE JFIX H.L FOR NORMAL NULL JOB 


144/ 














i lip 


AA1 7/i 


7A7 
4v4 


VJi 


A AO 


JMP 


Nl ? AND FINALLY; ALL ELSE GOES TO NULL LOOP 


144 7 


AM 771 
VVI//1 




007 

Lid 


A. 4 A 
U4U 


FXNXTJ LHLD 


,ARG1 ?GET CMD PNTR 


14jv 


001/ /4 


AA7 

044 






INX 


H .UPDATE IT PAST THE CURRENT EOL CHARC? OR CR-1 


14 Ji 


AA1 775 
VU1//J 


A?iO 


Lit 


A A A 

04\J 


SHLD 


FIRST .FIX CURRENT CMD LINE PNTR 


135i 


AA-1AAA 


"7 4 4 






RET 


.AND THATS ENOUGH FOR NOW 


1353 














1354 










5 CODE FOR BUFFER OVER FLOW 


1355 


002001 








BFOVRJ PLINE 


BV >" BUFFER OVERFLOW 


(1) 


002001 


337 






RST 


3 .PRINT. LINE OF CHARS 


(1) 


002002 


021 


037 




,ADDR 


BV iBUFF TO PRINT 


1356 


002004 


052 


350 


040 


NORDIS! LHLD 


NOREND .GET THE CURRENT DISPATCH ADDRESS FOR "NORMAL 1 


1357 


002007 


351 






PCHL 


.AND GO 
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■! 7Ctt 










{SUBROUTINE TO PRINT A SINGLE CHARACTER,. 


4 "? / A 

1360 










.'CHARACTER TO BE PRINTED IS PASSED IN THE ACCUH,, 


1361 










J IF THE UART SHOULD FAIL AND NEVER REACH THE TRANSMITTER READY STAT 


1362 










5 THE 8080 HILL HANG IN THIS LOOP FOREVER TRYING TO PRINT 


1363 


002010 


365 






PCHRl PUSH 


psy 


i SAME CHARACTER ON THE STACK 


1364 


002011 


072 


120 


040 


LDA 


NQPNT 


4 riff lift TiHTifT PS Af* 

?8ET NO PRINT FLAG 


1365 


G02Ui4 


267 






ORA 


A 


SIS IT SET?? 


13o6 


002015 


312 


022 


AA A 

004 


JZ 


PCHRO 


1 IF NOT CONTINUE AS NORMAL 


136/ 
















4 7ZO 

1368 


OO&IkO 


361 






POP 


psa 


{IF IT IS,. NO PRINTING 


* 7Z0 


AA^AOI 


71 1 
Oil 






RET 




{SO RETURN 


14/v 
















16 f I 


AAIAO") 
yy2U22 


A7 r > 

0/2 


OA7 

24/ 


AAA 


PCHR0J LDA 


CSLHDDE 


5 GET CURRENT KLINIK LINE MODE 


1 77*) 
lo/2 


AAOA1C. 


17Z 

•3/6 


A^A 

O^U 




CP! 


.M0BE4 


SIS THIS APT MODE?? 


14/-3 


0020*i/ 


7A r i 

302 


AC 7 


ISf\A 

004 


JNZ 


PCHRl 


SIF NO) PRINT 


1 77A 
14/4 
















li/J 










{HERE IF DOING APT AND i 


ttJST MERELY STACK CHARS TO BE ENVELOPED AND SENT OUT 


* 77 2 

j. 5/6 










{A LITTLE LATER 


, THE CHARACTER TO BE STACKED IS SITTING ON THE TOP OF THE 


u7/ 










J STACK 






14/0 


AA**jA7 J l 

002042 


7Z 1 

36 1 






POP 


PSU 


{NOW GET THE CHARACTER THAT WAS STACKED 


■1 770 

137? 


AA*1A77 

002033 


7.4. C 

34j 






PUSH 


H 


J MUST SAVE H)L IN HERE 


i 7QA 


AA-7A7 A 

002034 


ACO 


3j2 


A A A 

040 


LHLD 


ENVPNT 


{GET THE POINTER TO THE ENVELOPE 


1 7fH 

libl 


002037 


■1/7 

167 






HOV 


HtA 


{PUT CHARACTER INTO THE BUFFER 


1^82 


A A A A A A 

002040 


A ATf 

043 






INX 


H 


{UPDATE THE POINTER 


1383 


AA1A hi 

002041 


066 


AAA 

000 




MVI 


M»0 


{GUARANTEE LAST BYTE IS A ZERO 


13b4 


AAOA^I 

002043 


A.* 1 "* 

042 


4u2 


AJiA 

040 


SHLD 


ENVPNT 


{PUT IT BACK WHERE U GOT IT 




AAOA A L 

002046 


7JH 

341 






POP 


H 


{AND RESTORE REG 


i 70Z 

13d6 


00204/ 


77Z 

3/6 


A1 C 

01 j 




CPI 


CRCHR 


5 IF WE ARE BUFFERING A CR. MUST SET THE FLAG 


■1 707 

1387 


AA'lAd 

002051 


7AA 

300 






RNZ 




} IF NOT A CR? JUST LEAVE 


i "700 


AAOACO 


062 


2j2 


A* A 

040 


STA 


MAILFG 


{ELSE SET THE FLAG 


1 700 
1407 


AA-~«Aerr 
UV2vJJ 


71 ■* 

41i 






RET 




{AND OUT 


1 7 OA 
















14?1 


AAOA^Z 


40J 






PCHRl Z! PUSH 


PSW 


?CHAR ON STACK FOR A BIT 


!3Y£ 


0020j7 


777 

343 


201 




PCHRl! IN 


CTYCTL 


{GET UART STATUS 


13?4 


002061 


346 


AA4 

001 




ANI 


01 


{CHECK BITS TO SEE IS XMITTER READY?? 


1394 


002063 


312 


057 


004 


JZ 


PCHRl 


{JUMP BACK IF NOT READY YET 


1395 
















1396 










s NOW) BEFORE PRINTING) SEE IF NEED TO TYPE TO KLINIK LINE TOO, 


1397 


002066 


072 


247 


040 


LDA 


CSLHODE {GET CURRENT KLINIK LINE MODE 


1398 


002071 


376 


010 




CPI 


•H00E3 


{KLINIK IN PARALLEL MODE?? 


1399 


OOt'0/3 


302 


113 


004 


JNZ 


PCHROV 


{IF NOT) JUST 60 PRINT 


4 AAA 

1400 
















1401 










j FALL THROUGH IF NEED KLINIK TOO 


1402 


002076 


333 


203 




PCHR2* IN 


REHCTL 


5 GET KLINIK UART STATUS 




A An 4 A A 
002100 


7 4 1 
446 


AA1 

001 




ANI 


01 


{CHECK THE READY BIT 


•t A A A 

1404 


002102 




0/6 


A A A 

0u4 


JZ 


PCHR2 


{IF NOT READY? GO BACK AND TRY AGAIN 


1405 


002105 


361 






POP 


PSU 


{GET CHAR OFF STACK WHEN THINGS ARE READY 


1406 


002106 


323 


202 




OUT 


REMDAT 


{PRINT CHAR ON THE KLINIK LINE 


1407 


002110 


323 


200 




OUT 


CTYDAT 


{PRINT ON CTY 


1408 


002112 


311 






RET 




{AND BACK TO CALLER 


1409 
1410 


002113 


361 






PCHROVt POP 


psy 


{FINALLY READY,, GET CHAR FROM STACK 


1411 


002114 


323 


200 




OUT 


CTYDAT 


{SEND CHARACTER 


1412 


002116 


311 






RET 




{AND RETURN 
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1414 
1415 
1416 
1417 

1418 002117 

1419 002120 

1420 002121 

1421 002122 

1422 002123 

1423 002124 

1424 002126 

1425 002130 
1426 

1427 002133 

1423 002134 

1429 002136 



343 
176 
043 
343 
365 
333 



203 



346 001 
312 124 

361 

323 202 

311 



SUBROUTINE KCHR. FOR PRINTING A SINGLE CHARACTER ON THE KLINIK LINE ONLY 
PARTICULARLY USEFUL FOR THE "'NA" AND 'PWi' MESSAGES 
CHARACTER TO BE PRINTED CAN BE A TRAILING ARB* OR YOU CAN CALL THIS ROUTINE 
IN THE MIDDLE AND PASS THE CHAR TO BE PRINTED IN THE ACCUM 

KCHR 5 



KCHROt 
KCHRlt 



XTHL 




iSUAP SThCK TOP WITH HjL 


MOM 


AjH 


J GET THE TRAILING ARG FROM PROM 


INX 


H 


? UPDATE RETURN ADDRESS PAST THE TRAILING ARG 


XTHL 




.PUT THE RETURN BACK ON THE STACK 


PUSH 


PSH 


t SAVE THE CHARACTER JUST FOR A LITTLE BIT 


IN 


REMCTL 


JGET KLINIK UART STATUS 


ANI 


01 


5 SEE IF UART IS READY 


JZ 


KCHR1 


J LOOP TILL IT IS 


POP 


PSW 


(READY NOU> GET THE CHAR OFF THE STACK 


OUT 


REMDAT 


(SEND TO UART 


RET 




J AND BACK TO CALLER 
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1431 






5 SUBROUTINE KLINE, FOR PRINTING A LINE OF CHARACTERS, A TRAILING ARG 


1432 






? POINTING TO THE STRING TO BE PRINTED IS USED, "V MEANS <CR-LF>, 


1433 


002137 


343 


l\L A t ML 




2QUAP CTAPfc* EFT PflTMTITP TO TPATI ItiR ADR rn 14,1 


1434 


002140 


315 050 033 


PAi I 


TAR61 


» GET POINTER TO ARG INTO DiE 


1435 


002143 


343 


YTS4I 




iFIX RETURN ADDRESS 


1436 












1437 


002144 


032 


KLINE1S LBAX 


B 


!GET FIRST CHAR INTO ACCUM 


1438 


002145 


023 


INX 


D 


? UPDATE THE CHARACTER POINTER 


143? 












1440 


002146 


247 


ANA 


A 


f WELL THEN? SEE IF CHAR IS 0, MEANING END OF STRING 


1441 


002147 


310 


RZ 




IQUT IF YES 


1442 












1443 






sWELL THEN » 


MIGHT AS WELL GO PRINT THE THING 


1444 


002150 


315 123 004 


CALL 


KCHRO 


JGO PRINT THE CHARACTER 


1445 


002153 


303 144 004 


JMP 


KLINE1 


» AND WHEN RETURN, GO FETCH UP THE NEXT CHAR 
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144/ 










> SUBROUTINE TO PRINT A LINE OF CHARACTERS* * 












» POINTER TO THE LINE OF CHARACTERS TO BE PRINTED IS PASSED IN 


1449 










}'H»L' REGISTER 


..NO REGISTERS ARE DESTROYED BY THIS ROUTINE 


•1 if A 

1450 










5 THE END-OF-HESSAGE FOR THE LINE OF CHARACTERS TO BE 


1451 










JPRINTED IS INDICATED B 


V ft uO* BYTE AT THE END OF THE MESSAGE TEXT 


1452 


002156 


343 






FINE! 


XTHL 




i REFLACc RETURN.. PUT ON STACK 


4 AC"? 

145-i 


002157 


353 








XCHG 




J TRAILING ARG FROM *DfE' TO *HiL" 


14j4 




















A Ann /A 

UU216U 


I/O 






PLN1J 


MOV 


ft»M 


» GET CHARACTER FROM MEM. 


i4jq 


Uvtilol 


^44 








INX 


H 


? INCREMENT TO NEXT CHARACTER TO BE PRINTED 




















14v?U 


VV&1q£ 


111 
£/6 








CPI 


BSLASH 


?IS THIS A BACK SLASH? I.E. IN-LINE CRLF) 






Til 


1 ?a 


vv*t 




JZ 


F1N2 


IJUMP IF YES,., 


1 AAA 


















i Ail 


UUiUo/ 










ORA 


A 


} IS IT A '00* BYTE??? 




AAvH '7 A 


71 A 








RZ 




? RETURN IF DONE 


•\ All 

140o 


















i ALA 
1464 










SFALL HERE IF GOTTA REAL CHAR,, 


146j 


0021/1 




010 


AA>I 
004 




CALL 


PCHR 


J GO PRINT CHAR IN ACCUM 


1 AL £ 

1466 


yv^l/4 


414 




Aft h 


PLN2, 


cz 


CRLFIN 


J GET HERE ON ZERO FLAG » ONLY IF NEED CRLF 


146/ 


AA01 "77 
U021// 


7A7 


1 iA 
lt)0 


AAA 
004 




JMP 


PLN1 


CONTINUE LOOP 


1468 










" f SUBROUTINE TO PRINT A CARRIAGE RETURN-LINE FEED 


I4feV 










?N0 REGISTERS DESTROYED 


.JUST CALL TO GET YOUR 


14/v 










J<CR><LF> PRINTED 




14/1 


00^:202 


~1A ■» 

54 i 






,CRLF, 


POP 


H 


JMUST FIX THE STACK 


1472 


002203 








crlfin: 


PCHAR 


CRCHR 


5 PRINT CARRIAGE RETURN 


(1) 


002203 


317 








RST 


1 


?GQ PRINT CHAR IN TRAILING BYTE 


(!) 


002204 


015 








♦ BYTE 


CRCHR 


iCHAR TO PRINT 


1473 


002205 










PCHAR 


LFCHR 


J PRINT LINE FEED 


(15 


002205 


317 








RST 


1 


160 PRINT CHAR IN TRAILING BYTE 


(1) 


002206 


012 








.BYTE 


LFCHR 


5 CHAR TO PRINT 


1474 


002207 


311 








RET 




1 RETURN 


1475 
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147? 








.S6TTL 


«C0HHAND DISPATCH LIST** 


1478 








5 THIS LIST CONTAINS ALL CHARACTER PAIRS UHICH ARE CON! 


1479 








?LEGITIHATE COWHANDS TO THE KS10 CONSOLE 


1480 


002210 






1(111 o 1 ♦ 






1481 


0022i0 


i22 


4 

120 




♦ BY It 


/ p n **DCpCAT Tkl CACT I HttP* 


1482 


0022i2 


A A A 

140 


020 






DPrun 


1483 


002214 


104 


116 




♦ BY It 


•Ti /y **T!CDncTT kicvT* 


1484 


002216 


323 


212 




AftfiD 

♦hBDR 


BIIlDlDNCny 


1485 


002220 


104 


4 ATP 

103 




♦ hYlt 


U f L ?*Utrubil LhHn* 


1486 


002222 


100 


216 




A ft ft D 


ijiiijiyiiny 


148? 


002224 


104 


115 




DVTC 
♦ D? it 


Uf n ?iyt rub 11 ntnuhll 


1488 


002226 


224 


212 




APftD 
♦ HtfUh 




1489 


00223u 


114 


4 A. TP 

103 




DVTC 

♦ BY it 


Lf L ffLUfiy LKHn HLUJhtbb* 


1490 


0022.^2 


331 


213 




Anno 




4 kf\4 

1491 














1492 


0022M 


114 


101 




♦ B! It 


L? H f*LURU ntnUH i HDimtbb* 


1494 


00^236 


i 'JA 

120 


213 






DTTit: if ApUff 
Di i ID 2 LnLnD 


1494 


002240 


104 


i * i 
111 




♦ Di it 


Ti«'T i^TiPPnQTT T/Ht 
i«? i f*jytrUOii I/U^ 


14?j 


Oik 24;, 


012 


213 




♦ HDiJn 


Di 1 i J ! LULfliU 


14V6 


00^244 


114 


i i i 
111 




♦ Di i t 


L? i .**LUHI* i/U hi*Uf\LOO* 


14?/ 


002246 


12 D 


2i3 




* HVUiV 


Di i iDiLiUni* 


1498 


002250 


104 


102 




DVTC 
♦ Di It 


Uf d ?*ytrUbIi bub* 


1499 


002252 


240 


«H 4 

011 






yDtnLl 


1500 


002254 


104 


4 4"! 

113 




DVTC 
♦ Di It 


'Ti-'k* S^fiCDHCTT bTiKiOHi C# 

Uf l\ fflltruoli f\UNbULt¥ 


1501 


002256 


146 


213 






DilliJiMLnD 


1502 














1503 


002260 


114 


113 




♦ BYTE 


'L?'K ilLOAD ADR FOR K0NS0LE* 


1504 


002262 


132 


213 




* ADDR 


BIT15ILKCHD 


1505 


002264 


105 


113 




♦ BYTE 


'Ef f K ilEXAHINE K0NS0LE* 


1506 


002266 


053 


013 




* ADDR 


EKCHD 


1507 


002270 


114 


106 




♦BYTE 


'Li 'F 5 LOAD DIAG FUNCTION 


1508 


002272 


242 


214 




♦ADDR 


BIT15ILFCHD 


1509 


002274 


104 


106 




♦ BYTE 


'DfT ? DEPOSIT INTO DIAG FUNCTION 


1510 


002276 


251 


214 




♦ADDR 


BIT15!DFCHD 


1511 


002300 


115 


113 




♦ BYTE 


'Hj'K i*MARK HICR0-C0DE* 


1512 


002302 


012 


220 




♦ADDR 


BITlSiHKCMD 



VER 6,2 KS10 CONSOLE PROGRAM CROSS - MICRO 
HC0RE.M80 WCOKMAND DISPATCH LIST** 



PROCESSOR ASSEMBLER 6(31) 3-MAY-79 16150 PAGE 3-41 



1 c ,i A 
ldi4 


UU£dU4 


1 

l£d 


11 s ; 
iid 


PYTF 


%'M 


;*UNMARK MICRO-CODE* 


I did 


002306 


AAET 

OOd 


*:2U 


»hD0K 


BIT151UHCMD 


1516 


A AIT 4 A 

002310 


120 


10d 


♦ BYTE 


PrE 


t*PhRI It ENhBLE* 


151? 


002312 


371 


016 


»ADDR 


PECHD 




1518 


002314 


103 


105 


♦BYTE 


'Cf'E 


»*CACHE ENABLE* 


1519 


002ol6 


•77 / 

336 


A 4 TT 

013 


♦ADDR 


CECMB 




$ COA 


AAO70A 

002320 


4 OA 

124 


4 AC 
lOd 


♦ EM it 


'T>'E 


5*1 MSEC CLOCK ENABLE* 


1 50* 
id2i 


AA0700 

UU2322 


A1 O 

012 


A1 A 
014 


Anr<D 
♦ RlUJK 


TECHD 




ld22 


A AO 70 4 

002324 


i oa 
124 


1 OA 

120 


PV7F 


'Tf'P 


WRAP ENABLE* 


ld<:4 


AA070£ 

VU2326 


1 AA 
104 


A1 d 

014 




TPCHD 


















idZd 




1TI 


i^A 


PYTF 


'S»'T 


»*START* 


ldi.0 


AA17.70 


1 ft^ 

I Vvl 




Arifip 

* ttUlm 


BIT15ISTCHD 


1^7 

Id*./ 




liv 


1ft1 


♦ DHL 


'Hr'A 


J WALT* 


i^OQ 
idiO 


AA077£ 




A1 7 

VI/ 




HACMB 






A A Oil A 


1 A7 


1 17 


PYTF 


'Cf'O 


i*C0NTINUE* 


Iddv 


A,Y)7£0 


10*1 


ft 1"? 
vi/ 


amp 


COCMD 




X dOA 


AA07£A 


107 

i£.d 


1 1 1 
ill 


PYTF 
♦ DHL 


'Si'I 


»*SINGLE INSTRUCT* 


idd£ 


AATMI 
Wid'tO 


1 77 
I/O 


A1 A 
Ui.4 




SICMD 




* ^77 


AA07SA 


1 17 

1*3 


1 1 c . 
lid 


BVTF 
♦ BY It 


'St'M 


?*START MICRO-CODE* 


I d34 


AA07»^0 

UU23D2 


OA1 

20 1 


A1 1 

016 


A Tift D 


SHCHD 




















AA07CA 

0023d4 


lid 


1 00 

122 


♦ hilt 


J Mi'R 


CHASTER RESET* 


IdoV 


0023d6 


00c 

22d 


AAC 
OOd 


A ft ft D 


MRCHD 




1538 


AA*1T / A 

002360 


>! A*7 

103 


123 


TtVTV" 

.BYTE 


'Cf'S 


j*START CPU CLOCK* 


1539 


002362 


214 


014 


♦ADDR 


CSCMD 




1540 


002364 


103 


110 


.BYTE 


'Cf'H 


i*HALT CPU CLOCK* 


1541 


002366 


227 


014 


.ADDR 


CHCHD 




1542 


002370 


103 


120 


.BYTE 


'Cp'P 


5*PULSE CPU CLOCK* 


1543 


002372 


164 


013 


.ADDR 


CPCHD 




1544 


002374 


105 


116 


.BYTE 


'E»'N 


?*EXAMINE NEXT* 


1545 


002376 


173 


012 


.ADDR 


ENCHD 
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1547 


002400 


105 


115 




♦ BYTE 


1548 


002402 


024 


012 




*ADBR 


154? 


002404 


105 


111 




♦BYTE 


1550 


002406 


347 


012 




♦ADDR 


1551 


002410 


105 


103 




•BYTE 


1552 


002412 


260 


015 




♦ABBR 


1553 


002414 


105 


102 




♦ BYTE 


1554 


002416 


113 


011 




♦ABBR 


1555 


002420 


105 


112 




• BYTE 


1556 


a Art a nr, 

002422 


103 


015 ' 




♦ABBR 


1557 












1558 


002424 


124 


122 




♦BYTE 


4 ccn 

1559 


002426 


172 


A 4 C 

015 




♦ABBR 


1560 


002430 


122 


103 




♦BYTE 


1561 


A Art & Trt 

0024^2 


017 


015 




♦ ABBR 


1562 


002434 


4 "Trt 

132 


115 




♦BYTE 


1563 


002436 


064 


020 




♦ABBR 


1564 


002440 


120 


115 




♦BYTE 


1565 


A Art 4 A rt 

002442 


247 


015 




♦ABBR 


IDoo 


A Art A * A 

002444 


i AO 


1^4 




15 V TIT 


Lj67 


A AO A h i 

002446 


244 


AO 4 

021 




♦ABBR 


1568 














AAOiICA 

002450 


102 


4 AT 

103 




» BYTE 


1570 


AArt ACrt 

002452 


360 


025 




.ADBR 


1571 


002454 


114 


102 




.BYTE 


1572 


002456 


274 


021 




.ABBR 


1573 


002460 


105 


130 




♦ BYTE 


1574 


002462 


037 


217 




•ADDR 


1575 








mi 


♦ BYTE 


1576 








mi 


.ABBR 


1577 


002464 


113 


114 




.BYTE 


1578 


002466 


245 


017 




.ABBR 



'E»'H 5*EXAHINE MEMORY* 

EMCMB 

'E»'I 5*EXAMINE 1/0* 

EICMB 

'Ei'C »*EXAMINE CRAM* 

ECCMB 

'Ei'B j*EXAMINE BUS* 
EBCMB 

'E,'J i (EXAMINE CURRENT CRAM INFO* 
EJCMB 

'T»'R »*TRACE* 
TRCMB 

'R.'C ^FUNCTION REAB CRAM CONTROL REG* 
RCCMB 

'Z»'M »*ZER0 KS10 M0S MEMORY* 
ZMCMB 

'P»'M i*PULSE MICRO-CODE,,* 
PMCMB 

'Bi'T ;*B00T SYS* 
BTCMB 

'Bi'C »*B00T CHECK* 
BCCMB 

'L»'B 5*L0AB BOOT* 

LBCMB 

'Ei'X UEXECUTE* 

BIT15IEXCMB 

'L,'T »*LAMP TEST* 

LTCMB 

'K»'L >*KLINIK* 

KLCHB 
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IDoU 


Uvi*r/U 


1 {\K 




ti?i it 


/C_ .'D 


7*LAHniRL KLulOfLK* 








A 17 


* Hi* im 


cprMTi 




1582 


AA1A"?A 


4 4 A 
114 


1 22 


TiVTC 


L? t\ 


S*l HAft DCCT^TrD* 

f *LUHii htblofth* 


1583 


0024/6 


7AA 
300 


A 4 "7 
013 


♦ ALTO 


LhLni? 




1584 


AA^iCAA 

002500 


4 A A 

104 


4 *V"i 

u2 


♦ BYTE 


/ ft / D 


**ftCBftC?TT DCPTCTrD* 

fIDErubli KEbislEK* 


1585 


AAICAI 

002502 


7 4 A 

310 


A 4 7 

013 


♦ADDR 


BhCnB 




1586 


002504 


115 


124 


♦ BYTE 


rh T 


*±UAi"*TAf"iC TinrtT* 

jIHAGTAPE BOOT* 


1587 


002506 


373 


021 


♦ADDR 


HTCnD 




1588 


002510 


104 


123 


1WTC 

♦BiTE 


Df 5 


?$DISK bELECT* 


15bY 


Q0iul2 


324 


A*iA 

020 


AftftD 


ftOPMft 




1590 


002514 


4 4 C 

115 


123 


SVTC 


rlf S 


**MAPTA.BC CCi CPT* 

?*nAbiArE SELEl 1 * 




002516 


002 


AH 

021 


AftftD 

♦Alum 


nolnD 




15?2 


002^20 


4 ^7 


4 i A 

110 


DVTC 
♦ D! fE 


br H 


* *DLS! ITftfiLlki* 


ld¥i 


y0«£d22 


11 c 

21j 


A4 "? 

01/ 


AftftD 


hntnU 




I5y4 


002524 


4 4 C 

11j 


102 


TiVTC 

♦ in IE 


t U /ft 

n? B 


**MAPTADC ftfiftTOTBAB* 


1595 


002526 


207 


022 


♦ADDR 


KBCHD 




1596 


002530 


120 


127 


♦BYTE 


'Pr'W 


itPASSUORDt 


1597 


002532 


333 


017 


♦ ADDR 


PUCND 




1598 


002534 


124 


124 


♦BYTE 


'Ti'T 


J'*KLINIK LINE TO TTYS 


1599 


002536 


30? 


017 


♦ADDR 


TTCHD 




1600 


002540 


126 


124 


♦ BYTE 


'V»'T 


JtVERIFY AGAINST TAPE* 


1601 


002542 


014 


024 


♦ADDR 


VTCHD 





\ 
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1603 


002544 


126 


104 


♦BYTE 


1604 


002546 


001 


024 


.ADDR 


1605 


002550 


130 


061 


.BYTE 


1606 


002552 


054 


040 


* ADDR 


160? 


002554 


106 


ill 


♦BYTE 


1608 


002556 


303 


223 


.ADDR 


160? 


002560 


102 


062 


.BYTE 


1610 


002562 


371 


023 


.ADDR 


1611 


002564 


115 


115 


.BYTE 


1612 


002566 


147 


014 


.ADDR 


1613 


002570 


123 


103 


.BYTE 


1614 


002572 


046 


014 


♦ADDR 


1615 


002574 


000 




.BYTE 



'V»'D f VERIFY AGAINST DISK* 
VDCMD 

'Xt'l f DUMMY 
RAMX1 

'Ff'I 5*FILE* 
BIT15IFICMB 

'Bi'2 i**TEMP BOOTCHECK 2** 
B2CMB 

'M»'M ? MANUFACTURING MODE 
MMCMB 

'Si'C 5S0FT CRAM ERROR RECOVERY «0N/0FF« SMITCH 
SCCMD 

.END LIST MARKER 
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1617 
1618 
161? 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 



001 



.SBTTL CHECKSUMS AS COMPUTED BY SPECIAL 10-BASEB PROGRAM 
.IF DFiPASSl 



CHECKS t ,ABBR 



000 



001 

002575 052 240 

002577 217 301 

002601 157 340 

002603 216 006 
000 

002605 134 113 123 



.ABBR 
♦ABBR 
.EHDC 



fPSUEBO BYTES FOR RAM NUMBER 1 
fPSUEBO BYTES FOR RAM NUMBER 2 
fPSUEBO BYTES FOR RAM NUMBER 3 
fPSUEBO BYTES FOR RAM NUMBER 4 



JF BF>PASS2 
CHECKS J .ADBR CHKSMO 
♦ ADDR CHKSM1 
,ADDR CHKSM2 
.ABBR CHKSM3 
.ENBC 

.TITLE VER 6.2 KS10 CONSOLE PROGRAM 

INIMS5 .ASCIZ AKS10 CSL.V6.2V SPOWER UP MESSAGE ANB IDENTIFIER 



{CHECKSUM FOR RAM NUMBER 
> CHECKSUM FOR RAM NUMBER 
? CHECKSUM FOR RAM NUMBER 
> CHECKSUM FOR RAM NUMBER 
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■5 1ll 










♦ SBTTL 


*** "MR" CHD *** 


1638 










f THIS CODE PERFORMS THE 




4 /7?5 

163? 










MRCHD5 










0U2&25 


25? 








XRA 


A 


J SET ACCUH=0 




002626 


324 


212 






OUT 


CPUCTL 


JSET O'S TO ■RUNiEXECUTEjCONT' 


1&42 


002630 


315 


227 


014 




CALL 


CHCHD 


» AND INSURE CPU HAS STOPPED,,, 


164o 


















•} L A A 

1644 










5 ISSUE SM10 BUS RESET 




164 j 


AA*")£77 

UU2665 


A7£ 
U/6 


AA5 




nl\iill t 


nvi 


A?5 


f BITS FOR 'DP RESETS 1 "CRAM RESET* 


164o 


Will*. 

vU26oj 


t$23 








OUT 


CRHCTL 


ittm I/O WRT 204/5 ***** 


i AA1 




















AAO/77 


A7/ 
v/O 


OAA 
£VV 






mi 


ArBlOOOOOOO SBIT7 FOR RESET 






707 


1 AA 






OUT 


RESET 


i ISSUE RESET , SET CONSOLE MODE 


AqJv 


















IojI 


AAOZii7 

UU2640 


74 c 


OJ6 


hi I 

t'lo 




CALL 


SMFINI 


?GET CURRENT PARITY SETTINGS 1 SET IN 




















16j3 


A An/ A/ 

00^646 


A70 
0/2 




AAA 




LDA 


TRAPEN 


!BIT FOR 'CLR TEN INT' SHOULD BE LOU 


1654 


002651 


323 


205 






OUT 


DIAG 


!*»*** I/O WRT 205/XX ***** 


1655 


















1656 


002653 


006 


000 






HVI 


B»0 


SWILL SET NO BITS IN THE STATE WORD 


165? 


002655 


315 


326 


032 




CALL 


STATEH 


SSET THE STATE 


1658 


002660 


012 








.BYTE 


"012 


? OFF THE STUFF WE DONT WANT 


1659 


002661 










ENBCMD 




>AND OUT 


(1) 


002661 


311 








RET 




? RETURN TO CALLER 
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1661 






1662 






1663 


002662 


041 


1664 


002665 


345 


1665 


002666 


333 


Ail! 

1666 


002670 


107 


16(3/ 


0026/1 


777 

333 


x6ob 


AA1£"?7 

0020/3 


'"it A 

260 


166? 


AA0£7A 
0026/4 


7d ' 

34o 


1 A7A 
iO/U 


AAO£7£ 




1 £.71 
iO/1 






1 £70 
16/2 






16/3 


AA17A1 
002/01 


i 7A 
I/O 


16/4 


002/02 


74£ 

346 


1675 


A AIT A A 

002704 


302 


•* £7£ 






1 177 

16// 






167tf 


00270/ 


■777 
333 


16/7 


002/ n 


346 


1 £Oft 


AA071 7 


1 A7 
10/ 


1 £.01 

lob! 






1 £5'7 

16d2 


AA071 A 
002/14 


77£ 

3/6 


1 £07 
1683 


002/16 


7 AO 


1 £0A 

I6b4 






lOOJ 






1686 


00£/<d 


0/2 


1687 


002724 


247 


1688 


002725 


302 


1689 


002730 


170 


1690 






1691 






1692 


002731 


052 


1693 


002734 


351 



.SBTTL ****INTERRUPT HANDLER**** 

5 HERE ON INTERRRUPTS..REGS ALREADY SAVED AT *RST* BLOCK 



201 



302 067 010 



302 335 005 



INTRP5 LXI 
PUSH 
IN 
MOV 
IN 
0RA 
ANI 
JHZ 



H»ENDIN fPUSH OUR FAVORITE EXIT ADDRESS ON THE STACK 

H I AND UE CAN DO 'REP'S TO LEAVE ROUTINE 

CTYCTL iGET CTY TTY STATUS 

B»A 5SAVE IT IN THE 'B' REG FOR A COUPLE INSTRS 

REMCTL I NOW FETCH UP THE REMOTE STATUS 

B 1 AND THROy BOTH STATUS'S TOGETHER 

"070 5 ANY ERR BITS SET?? 

TTERR ?60 TELL ERR IF YES 



JFALL THROUGH IF NO ONE IN ERROR. NOV SEE HHO THE CHARACTER IS FROM 

MOV A»B J COPY CTY STATUS INTO ACCUM 

ANI 2 IIS A CHARACTER IN THE CTY UART?? 

JNZ INTCH 5 JUMP IF YES* FIND CHARACTER IN CTY UART. 

! FALL HERE IF IT UAS A KLINIK CHAR 

IN REMDAT > FETCH OUT THE CHARACTER 

ANI "017? fOFF THE PARITY BIT 

MOV BjA JMAKE SECOND COPY OF CHARACTER IN 'B" 



CPI 
JNZ 

J AHA, IT HAS A 
LDA 
ANA 
JNZ 
HOV 



CNTLY » BEFORE DISPATCHING^ SEE IF THIS IS "CONTROL-Y* 
KL.DSP »IF NOT. DO EVERYTHING AS PER NORMAL 

CONTROL- Y..NQU SEE IF IN MM MODE 
MMFLG JGET FLAG 
A f SET 8080 CONDITION CODES 

MMERR1 jIF YESi MM MODE? THEN GO ABORT WHAT EVER YOU ARE DOING 
A»B ?NOy REPLACE THE CHAR UE JUST BOMBED 



5 ELSE FALL THROUGH 
KL.DSP! LHLD MODDIS 
PCHL 



} GET CURRENT KLINIK MODE DISPATCH 
5 DISPATCH TO DO THE RIGHT THING 
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1695 










i CHECK IF WE ARE IN USER MODE 


1696 


00^/35 


333 


200 




INTCH? IN 


CTYDAT » INPUT CHARACTER 


169? 


002737 


346 


177 




'AMI 


"0177 fSTRIP BIT 8 


1698 


002741 


107 






MOM 


B,A 5SAVE CHAR FOR 2 INSTRUCTIONS 


1699 














1700 










5 SEE IF THIS IS MANUFACTURING MODE BEFORE WE CONTINUE 


1701 


002742 


072 


247 


040 


LDA 


CSLHODE ? GRAB CURRENT CSL MODE 


1702 


002745 


346 


020 




ANI 


.M0DE4 5 AND SEE IF ITS MODE 4 


1703 


002747 


312 


373 


005 


JZ 


CHNBUF 5 IF NO, CTY INPUT NORMAL 


1704 














1705 










» PLACE YOU GO IF MANUFACTURING MODE,, CTY CHARS ARE JUST SENT TO KLINIK 


1706 


002752 


170 






Moy 


A;B ? GRAB CHARACTER TO BE SENT TO KLINIK 


1/07 








AAA 
004 


CALL 


KCHRO 5 ONLY ECHO CTY STUFF AGAINST THE KLINIK LINE 


1/03 














1709 










JNOW SEE IF THAT WAS A MODE CHANGE CHAR WE JUST SENT DOWN THE LINE 


1710 


002756 


376 


031 




CPI 


CNTLY J IS IT 1 CONTROL- Y' 


1711 


002760 


300 






RN2 


flF WAS NOT, SIMPLY GET OUT 


1712 














1713 


002761 








CLRB 


KLNKSW » FORCE RE-EXAMINE OF THINGS 


1714 


002763 








CLRB 


MMFLG jTURN OFF MANUFACTURING MODE 


1715 


002765 


315 


101 


034 


CALL 


SETM2 } FORCE KLINIK LINE IMMEDIATELY INTO MODE 2 


1716 


002770 


303 


255 


001 


JMP 


REINI 
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4 "74 fV 

1/18 










5 ALSO STANDARD CQHH0N ENTRY POINT WHEN KLINIK LINE PARALLELS THE CTY 


1719 


002773 








nODti. 






1720 


002773 


072 


156 


040 


CnNBUFI LDA 


USRMD 


5 GET USER MODE FLAG 


1721 


002776 


247 






ANA 


A 


SIS IT SET?? 


1722 


002777 


170 






MOV 


AjB 


5 COPY CHAR INTO ACCUM(GET HERE FOR KLINIK OR CTY) 


1723 


003000 


302 


277 


006 


JNZ 


USER 


SJUHP IF IN USER MODE,., 


1724 
















1725 










5 FALL THRU TO 


HERE IF NOT USER MODE AND yE NEED DO SOMETHING WITH CHAR 


4 "JO / 

1726 


AATAA7 

003003 


376 


A4 7 

017 




CPI 


CNTLO 


J CONTROL 0??? 


1 "70"? 

1/2/ 


AA7AA5 
VVOWJ 


7 AO 

302 


aor 
023 


AAi 

006 


JNZ 


SKF'2 


JJMP IF NO 


i 71Q 

1728 
















i 70Q 
if 2.7 










I ELSE FALL INTO CONTROL-0 CODE*. STOP THE PRINTER 




AA7A1 A 








PCHAR 


UPARR 




(1; 


AA7A1 A 

003010 


71 7 

31/ 






RST 


1 


JGO PRINT CHAR IN TRAILING BYTE 




AA7A1 1 

0030X1 


ill 

136 






♦BYTE 


UPARR 


f CHAR TO PRINT 


1 771 
1/31 


AA7A1 
003012 








PCHAR 


OCHR 




i i \ 

(1) 


A A"? A4 *1 


74 7 

317 






RST 


1 


5 GO PRINT CHAR IN TRAILING BYTE 


/ 1 \ 
(1) 


AA7A4 7 

003013 


4 4 7 
11/ 






♦BYTE 


OCHR 


j CHAR TO PRINT 




AA7A1 h 
003014 


A70 

0/2 


\ OA 
120 


AAA 

040 


LBA 


NOPNT 


f GET CURRENT STATE OF "NO PRINT' 


1/^3 


AA7A1 1 

0u301/ 


7Ai 

306 


OAA 

200 




AM 


"0200 


{ZAP PRINT FLAG 


1 77A 

1 /34 


AA7A01 

003021 


A£0 

062 


1 OA 

120 


AAA 

040 


STA 


NOPNT 


IPUT IT BACK 




AA7AOA 

003024 


OC7 






XRA 


A 


fZAP CHAR SO WE CAN EARLY EXIT 


1736 
















1/3/ 


AA7A1C 

0u3025 


77 / 

376 


AO"? 

023 




SKP2J CPI 


CNTLS 


ilS IT CONTROL-S 


1738 


003027 


314 


141 


007 


cz 


CNTS 


rCALL IF YES 


1739 
















1740 


003032 


376 


021 




CPI 


CNTLG 


ilS IT CQNTROL-Q 


1741 


003034 


302 


042 


006 


JNZ 


SKP6 


UMP IF NO 


1742 
















1743 










rFALL TO HERE IF YES» 


ZAPP CNTL-Q FLAG 


1744 


003037 








CLRB 


STPPD 


iZAP!! 


1745 


003041 


257 






XRA 


A 


i CLEAR ACCUM 
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1/4/ 


AA7AA0 

003042 


AZO 

062 


1j/ 


AiiA 
040 


Cfc'DZ* CTA 

bisro* blA 


RPENB 


J ANY OTHER CHARS MEAN END REPEAT LOOP 


1748 


AA7A ACT 

003045 


7*7/ 

376 


A7'7 

032 




PDT 

CrI 


CNTLZ 


i CONTROL IV. 


1749 


AA*7A A"? 

00304/ 


312 


365 


AA / 

0U6 


JZ 


CNTZ 


JJMP IF YES 


1750 
















1/51 


AA7ACJ 

003052 


TIL 

3/6 


025 




Lrl 


CNTLU 


IC0NTR0L-U?? 


1752 


AA7AC h 

003054 


302 


071 


AAZ 

006 


IU7 


SKP8 


5JMP IF NO 


1/53 
















1/54 










jrALL 10 HtKt 


TO DO THE C0NTR0L-U CODE 


1755 


A AT AC "7 

003057 








DPiiAD 


t IDADD 




\1 / 


AA7AC7 


71 7 

31/ 






Kb I 


I 


T*n DDTkIT PL] AD Tkl TDATi Tklfi DYTr 

fbu rfuNl LHhK IN taRlLinb Uilt 


(1) 


AA7AZA 

003060 


i 7Z 

136 






♦ BY ft 


l IDADD 


tPUAD TO DDTMT 


1/56 


AA"7A / 4 

003061 








rtPiJAr« 

PCHAR 


hpud 
ULHh 




(1/ 


AA7A/ i 

003061 


317 






DDT 

RST 


4 

1 


i r-fi DDTMT PUAD TM TDATi Tk!P DVTC 


(1) 


003062 


4 nsr 
i2j 






TiVTr 


1 iPUD 


ifUAD Tfi DDTMT 


1/57 


AA7A/7 

0030&3 








PCKLF 




1 AND A CR-LF TO GIVE CLEAN LINE 


(2) 


AA7A i 1 

003063 


747 

347 






KbT 


4 




(2) 


AA"?A/ h 

00^064 


002 






»BTTE 






4 *7Cfi 

1758 


AA7A/C 

003065 


7<r 

315 


i Z A 

160 


A"! A 

010 


LALL 


BFRST 


i CLEAR INPUT BUFFER 


■f 7cn 
1/.J7 


AA7A7A 
0030/0 


2j/ 






VDA 

XKh 


A 


IANB SET ACCUM FOR EARLY OUT 


1 7iA 

1/6Q 
















1 7Z-I 

1/61 


AA7A71 
0030/1 


771 

3/6 


AA7 
003 




Ok'DO* PDT 


CNTLC 


SC0NTR0L-C?? 


1/62 


AA7A77 

003073 


7*. -7 

312 


1 4Z 

146 


Ai A 

010 


JZ 


CNTC 


i JMP IF YES 


1763 
















1/64 


AA7A"?Z 

0030/6 


77 L 
3/6 


AAA 
000 




Lrl 


Q.QUT 


J SEE IF MUST TAKE A QUICK OUT 


1765 


A AT 4 A A 

003100 


*74 A 

310 






Ri 




} LEAVE IF YES 


1766 
















1767 


003101 


376 


054 




CPI 


C0HHA 


} IS IT A COMMA? 


1768 


003103 


302 


112 


006 


JNZ 


Mil 


ilF NOT COMMA » AVOID THIS NEXT COUPLE 


1769 
















1770 










5 FALL TO HERE 


IF HAS A COMMA 


1771 


003106 


041 


225 


040 


LXI 


HfCHCNT fPOINT TO THE C0HHA COUNTER 


1772 


003111 


064 






INR 


N 


{UPDATE,, AND CONTINUE 
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1 11 h 










iUHT CDCPTAi 

?mJ! brtLlnL 


1//J 


Aft 7 110 


111 






nil* tri 


17/6 


AATP4 4 .4 

003114 


"74 A 

314 


225 


AA / 

006 


u 


1777 












1778 


A AT 4 4 "I 

003117 


376 


A4 C 

0x5 




CPI 


1779 


AAT4 *~ti 

003121 


314 


225 


006 


CZ 


1780 












1781 


003124 


376 


012 




CPI 


1782 


003126 


314 


225 


006 


CZ 


1783 












1784 


003131 


052 


215 


040 


LHLD 


1785 


003134 


376 


177 




CPI 


1786 


003136 


312 


244 


006 


JZ 


1787 













PROCESS NORMAL 

CNBCK > CONTROL BACKSLASH SHOULD LOOK LIKE CRLF 

EQMRK J CALL IF YES 

CRCHR J CARRIAGE RET?? 

EOMRK J CALL IF YES 

LFCHR fLINE FEED?? 

EOMRK f CALL IF YES 

BUF. » POINTER TO FIRST FREE BUFFER PLACE 

RBOUT I RUB-OUT CHAR?? 

RUB SJHP IF YES 
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1 700 
1/07 










JOTHERyiSE ITS A REGULAR CHAR* ♦ 


i/yQ 










ITHIS IS DUMB CODE FOR FIRST GO AROUND 


l/rl 










iTYPE-AHEAD yONT DORK 




1/Y2 
















i/?3 


A AT 4 A 4 

003141 


T4 C 

315 


14 A 

214 


AA / 

006 


pai i 


HO in 
Ur ♦LU 


j LUNVth i oil rhUbhftn inlthmiL UNLi ottb Urrth ! 


1794 
















1 70^ 
1/7 J 


AA71 4 A 

00ol44 


1 LI 

16/ 






nuv 


M« A 


fUifth INiU bUrrth or Hut 


1 70/ 
1/V6 


AA71 4£ 

004143 


AA7 

043 






THY 


U 
n 


iiion&Tr putd 
?UrDRit rffih 


■1 70"! 

1/7/ 


A ATI hi 

003146 


AA1 

042 


21j 


AAA 

040 


brO 


jpUr * 


iAkiTi CCDi APr DUTD 


1 700 
1/70 
















1 700 
1/77 


AA71 EM 

004131 


1 A7 
10/ 






nuv 


&„ A 


fOMVL Int LHHK dub! fir tit 


1 OAA 

loOO 


AA71 50 
00oi*j2 


70£ 

326 


AAA 

040 




OUT 

bUi 


U40 


SPiirpfc' TT TTC A OBTyTTfcfP PUAO 

?tntLK ir ilo ft rhiruimj unnK 


1 0A1 
loOl 


AA71 KA 
004134 


770 

3/2 


171 
1/1 


AA/. 

006 


Jn 


NUtln 


fir 11 lb NUNt—rN 1 * ♦bu ru ttnU 


1 OA*? 

1802 
















1 OA7 

1803 


A AT 1 C*7 

0031^7 


4 TA 

170 






nuv 


Hf$> 


ifiCT PUAD fcAPk*" 

?btl LHhK UnlK 


•i OAA 

.i804 


AAT1 £A 

003160 


7-1Z. 

326 


4 7/ 

1/6 




OUT 
OUi 


Ui/O 


fTO TT TfifS ill TA DC DDTMTTkif* r*UAD J ?^ 

fib 11 iuu Hi ill DC rhiNilNb LnRKfr 


4 OAC 


A AT 4 tn 

004162 


Til 

362 


1 "H 
1/1 


AAZ 

006 


SP 

Jr 




iTT YETC. Eft yn CPUft 
?ir Ttb? bu Nil tLHU 


i flA / 

1806 
















1 OA"? 

lev/ 


A ATI £C 

00416j 


1 7A 
1/0 








AiB 


fGET CHAR BACK AGAIN 


IPAQ 


Aft 71 Ak 
WO 100 


OiJ 


ftl A 


AAA 


CALL 


PCHR 


INOH 60 ECHO IT,,,,, 


1 QAO 
Xqv7 
















1 01 A 

lolO 


AA71 11 

0041/1 


A70 
0/2 


1 Li 
161 


AAA 

040 


NOECHi LDA 


BFCNT 


JGET CHAR COUNT 


1011 

loll 


AA71 7 A 
0031/ 4 


A^ A 
0/4 






INR 


A 


jBUHP UP 


1812 


AAT1 7C 

0031 7 j 


3/6 


1 OA 

120 




CPI 


80, 


?T00 MANY?? 


1017 

1814 


AAT1 7"? 
0031// 


71 O 

312 


AA1 
001 


AAA 

004 


JZ 


BFOVR 


JJMP BUFFER QVERFLOU IF YES 


1 01 A 

1814 


AA70A0 

003202 


A/*"* 


1 Li 

lol 


AAA 

040 


STA 


BFCNT 


J REPLACE COUNT 


1815 


AA70AC 

003205 


341 






POP 


H 


j CLEAR STACK OF THE PSEUDO RETURN FIRST 


1816 










$ FALL INTO END INTERRRUPT CODE IF CHAR COUNT OK 


1S17 


003206 


341 






ENDINt POP 


H 


J RESTORE REGS 


1818 


003207 


T14 

321 






POP 


D 




181? 


003210 


TA4 

301 






POP 


B 




1820 


AATK 4 

003211 


T / 4 

361 






POP 


psy 




1821 


003212 


TTT 

373 






EI 




{INTERRUPTS BACK ON 


1822 


A AT 14 T 

003213 


T4 4 

311 






RET 




»AND OUT 


1823 
















1 ooa 
1824 










J AND ACCEPT LOWER CASE AS REQUESTED 


1 ooc: 
lo2D 


AATOI A 

00 42 14 


3/6 


i hi 
141 




UP.LOt CPI 


"0141 


JLOH CASE "A" OR BETTER?? 


18^6 


A ATI 4 / 

003216 


TTA 

3/0 






RM 




JIF MINUS? NOT LOU CASE, CONTINUE 


1827 


003217 


376 


173 




CPI 


"0173 


;lou case 'Z' or horse?? 


1828 


003221 


360 






RP 




5IF P0S> OR ZERO? ITS NOT LOU CASE RANGE 


182? 
















1830 










J FALL INTO HERE IF IT HAS LOWER CASE,,,, 


1831 


003222 


326 


040 




SUI 


"040 


f HAKE IT UPPER FOR ALL 


1832 


003224 


311 






RET 




{AND OUT 


1833 
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4 Q7C 










{CODE FOR END-0F-LINE CHAR TYPED IN 


1836 


003225 








tUnKlv* rlrhLr 




inTUC pp-i r 


(2) 


003225 


347 






DDT 

Kb i 


4 




{2) 


003226 


002 






♦ BYTE 


2 




1837 
















1838 


00322/ 


072 


225 


040 


LDA 


PiiPkiT 

CnlNT 


f be. i LUUNi Or lunnHb 


1839 


003232 


074 






INK 


A 

H 


?Ur BY UNLj ruh frit LH""Lr 


1840 


003233 


062 


204 


040 


PTA 

STA 


Cfil 

tllL 


* Akiri crT mi yADk*TD 


1841 


003236 


257 






VDA 

aKk 


A 

H 


J PI CAD APPfiM 




AA7077 


A£0 
U62 


22d 


AAA 


Sin 




iorr i nn A TTffol 
futl LUwHIiUn 


i 0A1 

1843 


003242 


AC7 

05/ 






PMA 




f-nry AppHis ~ _i 


1844 


003243 


14 4 

311 






Kt 1 




iPFTMPM 


184j 
















iOAl 
















IcH/ 










srnriP fhp a pur. 


-HilT 




i QAQ 


AA70A A 


y/2 


i ii 
161 


AAA 


Pi IS* 1 Tlfi 


XJrlm 1 


5 eft riiPPPMT pmap rnnyT 

fut! bUftrtfLFH wriHf\ l»UUfH 


1 OAO 

lcm 


AA70A7 
UU32<!/ 








HUH 


A 
H 


STQ TT A?? 

? JL5 It v : r 


i OCA 


AA7*>CA 


71 A 

31y 






P7 




IRftfilU NfiTHTNR TH RFi FTF 

? UlfUi'? nU i nJLKu t U t'LLL ! L 


iOJi 


Aft 7051 










A 
n 


»rtFrRFHFNT flTHFRyi^F 

? JL'krWtXU.} Ib.il ! UIDLl\niuL 






Aa^ 


ioi 


AAA 




RFrNT 
erwrti 


| AlJff Dj IT TT DAPb* 


















i OCA 


00^255 


AC"7 

053 








M 


iAkin DAPk* I id Tur DiirrrD -dutd 


< net? 

1855 


003256 


042 


215 


AAA 

040 


SHLD 


BUF, 


5PUT IT BACK 


1856 


003261 








P8LASH 




5 TYPE SLASH AS RUB0UT INDICATOR 


(2) 


003261 


317 






RST 


1 


rGO PRINT CHAR IN TRAILING BYTE 


(2) 


003262 


ACT 

057 






♦BYTE 


SLASH 


{CHAR TO PRINT 


1857 


003263 


176 






MOV 


A-H 


J GET CURRENT CHAR IN BUFFER 


1858 


003264 


315 


010 


004 


CALL 


PCHR 


5ECH0 WHAT yAS RUBBED OUT 


1859 


003267 


376 


054 




CPI 


COMMA 


?0H UAITi «AS THAT A C0HHA?? 


1860 


003271 


300 






RNZ 




?JMP IF N0» TAKE A N0RHAL OUT 


1861 










5 FALL THRU IF UAS A COMMA 


1862 


003272 


041 


225 


040 


LXI 


HiCHCNT 


J GET COMMA COUNT 


1863 


003275 


065 






DCR 


M 


{DECREMENT 


1864 


003276 


311 






RET 




IAN EXIT THIS PLACE 
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1866 










JHERE IF USER MODE FLAG IS SET.. 


1867 


003277 


376 


034 




USERS CPI 


CNBCK 


.IS IT "V?? 


1868 


003301 


302 


160 


007 


JNZ 


TENCHR 


J IF NOT .THEN ITS A CHAR FOR THE KS-10 


186? 
















1.870 










i BEFORE HE LEAVE USER MODE. HE MUST CHECK THE CONSOLE ENABLE SWITCH 


1871 
1872 


003304 


333 


301 




END.USRS IN BOOTSW 


}***«* I/O RD 301 ***** IS CONSOLE LOCKED UP?? 


lb/3 










IBIT 2 IS "LO" 


IF CONSOLE ENABLE IS TRUE. IF BIT 2 IS "HI". HE ARE DISABLED 


i OIA 

1874 










{DUE TO THE HARDWARE INVERSION OF SIGNAL LEVELS 


1 07C 


AA77AI 

003306 


1AL 

346 


AAA 

004 




ANI 


"04 




1 07 £ 

Ibvo 


AA771 A 


7AA 






RNZ 




i TF UT, up APC M CAW Hi AM UTI 1 TfiNflRF 


1 077 
10/ / 
















1P70 










f IF YES. USER MODE MUST 


BE rLEARED 


10/7 


AA771 1 








CLRB 


NOPNT 


.CLR NO PRINT FLAG IN CASE HE HERE IN "INTERNAL MODE 1 


loov 


AA771 7 
WOO 10 


71 1% 
Old 


o46 


AAA 

UUo 


CALL 


CLRUSE 


J EXIT FROM USER MODE 


1 001 
lOOl 


AA771 L 

UU3316 








PLINE 


RDYMS 


{' ENABLED' 


/ i s 

(1) 


003316 


777 

33/ 






RST 


3 


.PRINT LINE OF CHARS 


(1/ 


AA771 7 

003317 


335 


AAZ 

006 




.ADDR 


RDYMS 


.BUFF TO PRINT 


lbo2 


AA77*)1 
003321 


AA 1 

041 


2jj 


AA1 
001 


LXI 


H.REINI 


5 SET UP AN EXIT ADDRESS 


i 007 

1883 


AA771A 

003324 


321 






iout; pop 


D 


.CLEAR THE PSEUDO RETURN TO "ENDIN 1 FROM STACK 


1 GO .A 

1884 


003325 


321 






pop 


D 


.CLEAR ORIGINAL SAVED "H.L" OFF STACK 


1885 


003326 


321 






POP 


D 




1886 


00332? 


301 






POP 


B 




1887 


003330 


361 






POP 


PSH 




1000 


AA7771 


A£7 
VOO 






INX 


SP 


5NQH GET OLD RETURN ADDR OFF STACK 


l007 


AA7777 

UUooo2 


A£7 

Uoo 






INX 


SP 




H OOA 

1 890 
















■J DDI 


AA7777 
003333 


7*77 
0/3 






EI 




.ENABLE INTS.. 


1 000 


AA777JI 

UQ3334 


7C1 

3j1 






PCHL 




? AND GO TO PROMPT 


1 OOl 

1893 

•J OOA 


AA777C 


1 AC 

IQj 


1 1 L 

116 


1 A1 
101 


RDYMSJ .ASCIZ /ENABLEBV 


1074 
■f one 

1895 


003346 








CLRUSEJ CLRB 


USRHD 


5AND CLEAR THE USER MODE FLAG 


I8?6 


AA77CA 

003350 


072 


251 


AAA 

040 


LDA 


MMFLG 


{BEFORE DROPPING USER. SEE IF IN MM MODE 


1897 


003353 


247 






ANA 


A 


.SET 8080 FLAGS 


1898 


003354 


310 






RZ 




JIF NOT MM MODE. OK TO GET OUT 


1899 
















1900 










J IF HAS SET. MUST DROP BACK TO MODE 4 


1901 


003355 


315 


050 


034 


CALL 


SETH4 




1902 


003360 


315 


117 


004 


CALL 


KCHR 


.NON-PRINTING CHAR. ALSO TELLS HOST TO SHITCH MODES 


1903 


003363 


034 






.BYTE 


CNBCK 


5" CONTROL-BACKSLASH IS THE MAGIC CHAR' 


1904 


003364 


311 






RET 




.JUST LEAVE 
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1906 5C0NTR0L-Z CODI 

190? 003365 315 017 007 CNTZ5 CALL 

1908 003370 315 160 010 CALL 

190? 003373 CLRB 
1910 

1911 003375 PLINE 
(1) 003375 337 RST 
(1) 003376 006 007 ,ADDR 

1912 003400 041 335 001 LXI 

1913 003403 303 324 006 JMP 

1914 003406 125 123 122 Ut ,ASCIZ 



ENTER USER MODE 
SETUSE I SET THE USER MODE 
BFRST I BUFFER RESET,. RE-INIT TTY INPUT BUFFER 
KLNKSW f FORCE LIGHTS TO GET FIXED AFTER ENTER USER 

U JPRINT "USER MODE' 
3 JPRINT LINE OF CHARS 
U J BUFF TO PRINT 
HjNULLJ fLOAD 'H»L' yiTH A PLACE TO GO 
IOUT I AND GET OUT 
/USR MODV 



VER 6,2 KS10 CONSOLE PROGRAM CROSS - HICRO PROCESSOR ASSEMBLER 6(315 3-MAY-7? 16550 PAGE 3-56 
HC0RE.M80 ****INTERRUPT HANDLER**** 



i 01 L 
1V16 


fSfilAi 7 

00331/ 








i (Si 7 

1917 










4 f%4 fi 

1918 


Aft"? 4 4"? 

003417 








(i) 


003417 


327 






191? 


003420 








/ 4 \ 
CD 


003420 


fir 

315 


216 


ATA 

030 


f" *§ \ 


003423 


A7i 

031 


AAA 
000 




1920 


003425 








(15 


00^425 


36/ 






1921 


A A*? A*"i i 

003426 


A71 

072 


255 


AAA 

040 


1922 


AA7 A.74 
003431 


A .4 i 
041 


AA.7 

04/ 


AAA 

040 


1923 


AA7A7 A 

003434 


i LI 
16/ 






ly24 














A70 


7 c '. sr , 


AAA 


1926 


A A"? AAA 

003440 


AA7 

007 






1927 


AA7 A Ai 

003441 


AA7 
00/ 






4 0*"JG 

1V28 


AA7A A*l 

003442 


A A "5 
00/ 






1929 


AA7 AA1 

003443 


i A 7 
10/ 






i OTA 










1931 


A ATT AAA 

003444 


AT* 

072 


25i 


AAA 

040 


1932 


003447 


f*A~¥ 

247 






4 fit*" 

1933 


AA'T AC A 

003450 


365 






4 f**?A 

1934 


A AT ACT 4 

003451 


~t4 1 

312 


AC / 

056 


AA"! 

007 


4 f*7£T 

19,55 










■i ft 7 / 

1936 










4 077 

193/ 


003454 


A7£ 

0/6 


i AA 
100 




1938 


AA7 AC/ 

003456 


"1/ A 

260 






1 Q7G 

1939 


AA7 4C7 

003457 


A 47 

043 






4 r\ A A 

1940 


AA7 A / A 

003460 


AA7 

043 






1941 


AA7 A i i 

003461 


4 i "i 

167 






1?42 










1 OA 7 


AA7 A/O 

00,5462 


0/2 




AAA 


-i fj 4 A 

1944 


AA7 A/C" 

00346j 


A< 7 
01/ 






1945 


AA"? A / / 

003466 


■l A 7 

10/ 






4 n A / 

1946 


AA? A /"? 

003467 


07*: 


*"l A 7 

247 


AAA 

040 


1947 


003472 


346 


A4 A 

014 




1948 


AA7A7 A 

003474 


7i 1 

^12 


101 


AA7 
007 


H O An 

1949 










4 flCA 

1950 










•6 ftC4 

1951 










1952 


AA7 A77 

00347/ 


A7£ 

076 


4 AA 

100 




1953 










•f oca 
19 j4 


AA-JCAi 

OOiWOl 


260 






17 J J 


AA75AT 

00oDU2 


A1 7 






1 D"^i 
I/Jfc 


AA7*%A7 


1 ft? 
10/ 






1 QC7 


AA7CA A 

0voj04 


A77 
0/2 


OIj 


AAA 
040 


1958 


AA7CA7 

003j0/ 


7 AZ 

346 


7AA 
300 




1959 


003511 


260 






1960 










1961 


003512 


043 






1962 


003513 


167 






1963 


003514 








(1) 


003514 


247 






(1) 


003515 


315 


217 


030 



setose; 

j here is the deposit word 31 code. 



INT0N 




5B0NT PRINT THIS STUFF 


RST 


2 


»GQ SET INTERNAL MODE 


EXAM 


31 


jHUST SAME CURRENT bTATE OF KEEP ALI0E % RELOhD BITS 


CALL 


EXAHSH 


?AND DO EXAfi ASSUHINb SHORT ADDRESS 


iADDR 


31 


fADDR TO BE ZAPPED PASSED AS TRAILINS ARB 


riiTnpp 

INT0FF 




j ITS OK NOW 


RST 


6 


>G0 EXIT FROM INTERNAL MODE 


LDA 


G0C0DE 


>BYTE 28-35 GETS THE REASON FOR RELOAD 


LXi 




*iiAfcT U I DHTWT Tfi TUC fiCCTDrTi DlirCCD 

? nftKh Hf L rUINi IU irtfc DLslKtU DUrrxK 


nuv 


U A 


f be. i i fit bUtUltt clib Iniu {Hl KTIc UnUflt 


l TsA 

LUA 


TRAPEN 


jNOM GRhB THE TRAP BIT 


RLC 




» AND SHIFT IT TO THE APPROPRIATE P0SITI0N(20 TO 403 


RLC 




? (40 TO 100) 


RLC 




r(100 TO 200) 


MOM 


BjA 


j SAVE IT IN B FOR A WHILE 


LDA 


MHFLG 


JGET 'MAINTENANCE MODE" FLAG 


ANA 


A 


fSET 8080 FLAGS 


PUSH 


psy 


5SAME THE STATE OF THE FLAGS FOR LATER USE 


JZ 


yRD.PR 


5 IF NO MM MODE, D0NT SET A BIT 



>UAS HM MODE? MUST SET THE BIT 

mvi Aroioo ;a bit for mm mode 

yRD.PR J ORA B iTHROy TOGETHER yiTH THE TRAP BIT 

INX H »PUT INTO THE DEPOSIT BUFFER 

INX H 

MOM MiA JTHIS IS LOC 'DMDAT+2' 



LDA PARBT >N0U FOR THE SELECTION OF PARITY BITS 
RRC I RIGHT ONCE TO FREE UP 200 UEIGHT 

MOM BjA jSAVE IN B REG 

LDA CSLMODE J GET CURRENT KLINIK MODE 

ANI .M0DE2! .H0DE3 »IF EITHER OF THESE MODESj MUST SET THE BIT 

JZ URD.DP UUMP IF NOT THOSE BITS 



5 HERE IF ONE OF THOSE MODES MS SET 
MVI A»"0100 ?A BIT TO SET 



ORA 


B 


J THROW THIS BIT WITH THE OTHERS 


RRC 




•FINAL JUSTIFICATION 


MOM 


B»A 


5N0W SAME THIS GOOD STUFF IN 'B' 


LDA 


EMBUF+3 5 GET THE BYTE THAT HAS CURRENT "KA* BIT 


ANI 


"0300 


SOFF EVERYTHING ELSE 


ORA 


B 


iNOW THROW WHOLE MESS TOGETHER AGAIN 


INX 


H 


iBUMP POINTER TO 'DMDAT+3' 


MOM 


MiA 


f AND PUT DATA INTO RAM 


DEPOS 


31 


IPUT INTO MOS MEMORY AT LOC 31 


ANA 


A 


fCLR "C-BIT' FOR USE BY COMMON CODE 


CALL 


DEPSHT 


5 AND DO THE DEPOSIT ASSUMING SHORT ADDR 
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(i) 


003520 


031 


000 






.ADDR 


31 


jADDR TO BE iHFPED PASSED AS TRAILING Mb 


1964 


003522 










CLRB 


GQCQDE 


f CLEAR THE RELOAD CODE 


1965 


















1966 


003524 


361 








POP 


PSW 


iTHIS UORB HAS FLAGS SET FROM BEFORE WHEN WE TESTED "MM* 


196? 


003525 


076 


377 






HVI 


Ai-1 


J FLAGS WONT CHANGE WHILE WE SET THE USER MODE FLAG 


1968 


003527 


062 


156 


040 




STA 


USRMD 


J SET USER MODE,,, NOW DO SOMETHING BASED ON THE FLAGS 


1969 


003532 


310 








RZ 




»IF NOT SET » A SIMPLE OUT 


1970 


















1971 










J HERE IF SET » 


yE MUST SEND AN "ACK" DOWN KLINIK LINE BEFORE ANYTHING ELSE 


i Q"in 
l7/£. 


AA7C77 


~li c 


OAC 


A7C 




CALL 


ACK 


f'ACK" DOWN THE KLINIK 


17/6 


AA7C7Z 


7A7 

Wo 


1 A* 

101 


A7ji 




JMP 


SETM2 


J ALSO SET MODE 2 AND USE HIS "RET" TO RETURN 


lr/4 


















l?/3 










i TYPED "CONTROL'S" TO STOP CONSOLE OUTPUT 


17/6 


AA7C A 4 


/\A i 

041 


162 


Ail A 


CNTS5 


LXI 


H.STPPD J POINTER TO STOPPED FLAG 


IV// 


AA7C* A 


I/O 








MOV 


A?M 


» GET THE FLAG 


l?/b 


AA7CAC 


AC"? 

VJ/ 








CMA 




»SET ,EQ, IF WAS ALREADY SET 


I?/? 


0U3b46 


Oil""? 

24/ 








ANA 


A 


5 NOW SET FLAGS » 'CAUSE CMA DOESN'T 


1980 


00354? 


310 








RZ 




5IF ,EQ, N0W» MERELY LEAVE, .ALREADY SET 


1981 


















1982 


003550 


167 








MOM 


MfA 


» AND SET THE FLAG ,EQ, -1 IF HERE 


1983 


003551 


373 








EI 




ILET THE CNTL-Q THRU 


1984 


















1985 


003552 


176 






CNTSLJ 


MOV 


AiM 


56ET FLAG STATUS 


1986 


003553 


247 








ANA 


A 


rIS IT SET??? 


1987 


003554 


310 








RZ 




ilF NOT » THEN TIME TO QUIT 


1988 


003555 


303 


152 


007 




JMP 


CNTSL 


»STAY IN LOOP IF FLAG STILL SET 


1989 
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1001 

1771 








♦ OD I 1 L **OVOV 


Tfi k'C1A 
fU l\Oiv 


puAftarTn;' orpuirf** 

LnHKHU 1 Lft 0Lf\Vll/C.** 


1 000 
17 i£ 


UUojoU 


A£0 
UO£ 


A7<s AAA 


TCMPUP* OTA 
1 tttLnft * o I H 


pupbi ic 


i PI IT rUAPfiPTrp TW A P&M tkiiccrrp 


i G07 
177 J 


AA7SZ7 

003363 


A7£ 
0/6 


A70 

032 


Mill 

nvi 


A "THO 

H? U61 


*rirc-TDcri Artrioroo srno riCDnoTTkifs ruAE*ArTCD 
jiitblHtu HLiUKtbo VUh litrUbfINu LnHKHLitK 


i 00 h 
1774 














1 QOEI 
177vl 


ftA7^ZS 

OOojOj 


707 

616 


1 A7 

105 


UU! 


A007^ 


iuoTTc nwi v pci cuamt PTcrc nr Tur ArtTiproc 


1770 


AA7CZ7 


2j/ 




VDA 


A 

H 




1 GD7 
177/ 


AA7C7A 


707 
3i£3 


lUD 


hut 


A0A07 


jhND ILK IHl Ktbl Ur Int HHhiiwHKt HUUKbob htbiolth 


1 000 
1770 


AA7C70 

003 


707 

616 


1 A7 
10/ 


fiHT 
UUI 


A1 01 O 

ml IV 




1000 
177 7 


AA7^7A 

UUOJ/4 


707 


1 AA 
IVO 


HI IT 
UUI 


Lli 010 


5 pi rAp Pierre nr rirpnoTT tiata uuttu miict &f 7rpn 


OAAA 


VVOd/O 


707 


1 1 A 


fiHT 
UU 1 


UAA1 1 




0AA1 


AA1AAA 


707 
6i6 


1 1 o 

Hi. 


ni it 

UUI 


14AAA7 




OAAO 














0AA7 

£Uvo 


AA7AA0 


U/o 


AAO 


nvi 


A • AO 


5PTT Tfi CAY ■UpTTC riiyrTTfiKI 1 

jr-il lU bft! IsKiit rUrttliUrl 


OAAA 


AA7AAA 


707 
616 


117 
110 


HI IT 
UU 1 


AAAA7 


5***** T/fi yPT 111 ***** 
i/U Rl\i 1 10 ***** 


4VVJ 














OAA£ 
^UVO 








*Tur cm i out me 
? Int rULLUwlNb 




UfiPfc'Q T^Y 1 link' T IT ll^i-A 


0AA7 


AA7£A£ 


OA"? 






A 


?J5ll iniU RUwUn rUK lfUn/Hl*f\ uTLLL 


OAAO 


AA7iA7 


707 
616 


1 1R 
liJ 


Hi IT 
UU! 


BUSARB 


mm I/O WRT 115/4 ***** 


tvv" 














9A1A 


WOO 11 


V/ £. 


ATS A4A 


1 FlA 


CHRBUF 


iNOH GET THE CHARACTER WE WANT 


0A1 1 


AA7.£i£ 


707 


1 AO 


OUT 
UU i 


M2835 


5 PUT IT IN THE HARDWARE REGISTER 


0A10 
^01 £ 


AA7£1 L 


fill 


AA1 
UUI 


nvi 


Ail 


i AND GET THE VALID BIT TO GO WITH THE CHARACTER 


£013 


0036 tO 


707 

323 


104 


Hi IT 

UUI 


H2027 


fPUT IT IN THE HARDWARE REGISTER 


2014 














20 Li 








r AND BY LUCK? ' 


fHE ACCUH HAS JUST WHAT UE NEED FOR THE NEXT STEP 


2Q16 


003622 


323 


* i A 

114 


OUT 


BTARB 


mm i/o wrt U4/1 ***** 


2017 
















AA"7 f 

003624 


AT / 

076 


"7/ A 

360 


HVI 


A»"0360 JBITS FOR "CHECK NXH' , 'CONSOLE REQ'i'T ENB FOR COM/ ADR* 


1A< (5 

201? 












i'T ENB FOR DATA CYCLE" 


2020 


AA"7 / 

003626 


32i 


210 


OUT 


BUSCTL 


i*****I/0 WRT 210/360 ***** 


2021 














2022 








JDO THIS TWICE TO GUARANTEE THAT THE INTERRUPT HAPPENS 


2023 


003630 


076 


001 


HVI 


Ail 


J BIT FOR SETTING INTERRUPT TO THE KS10 


2024 


003632 


323 


116 


OUT 


INT2KS 


? SET THE INTERRUPT 


2025 


003634 


323 


116 


OUT 


INT2KS 


J SET THE INTERRUPT 


2026 














2027 


003636 


311 




RET 




? AND EXIT NORHALLY ♦ ♦ ♦ . 
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2029 
2030 
2031 
2032 
2033 

(1) 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 

(1) 

U) 
2043 

(1) 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
205? 
2058 
2059 
2060 
2061 
2062 
2063 



003637 
00363? 327 
003640 363 



003641 072 355 040 
003644 323 205 



003646 

003646 315 216 030 

003651 035 000 
003653 

003653 367 

003654 072 013 040 
003657 24? 

003660 312 336 007 

003663 107 

003664 072 24? 040 
003667 346 013 
003671 302 330 007 



003674 170 

003675 376 001 
003677 312 314 007 

003702 376 002 

003704 302 065 010 

003707 315 132 034 

003712 373 

003713 311 



I ENTER HERE WITH THE CHAR IN THE ACCUM 
♦SBTTL ttKSiO TO 8080 CHARACTER SERVICE** 

.routine for handling interrupt characters froh a running ks10. 
.only chars froh ks to cty implemented 
chrrdy: inton ;set up internal mode 

rst 2 j 60 set internal mode 

dl .common code i not to be disturbed 

i disable interrupts for this operation 

lda trapen j get default for the trap enable bits 
out diag i*****i/0 urt/ to clr the interrupt***** 

.fall to here if yes he are in klinik mode 2,. its possible that this interrupt 
j is from the klinik cohm word, for the klinik line 



EXAM 

CALL 

,ADDR 

INTOFF 

RST 

LDA 

ANA 

JZ 

MOM 
LDA 
ANI 
JNZ 



35 JEXAM THE KLINIK COMM WORD 

EXAHSH .AND DO EXAM ASSUMING SHORT ADDRESS 

35 iADDR TO BE ZAPPED PASSED AS TRAILING ARG 

5 KEEP THIS FLAG IN STEP 
6 5 GO EXIT FROM INTERNAL MODE 
EHBUF+1 .GRAB THE CONTENTS OF THE BYTE WITH THE CONTROL KEY 
A .SET 8080 FLAGS 

CTYONLY J IF CONTROL KEY CLEAR. NOTHING FROM KLINIK? TRY CTY 

E;A I SAME THE DATA IN THE ACCUM FOR A LITTLE WHILE 
CSLMODE f GET CURRENT MODE.. DECIDE IF MUST THROW AWAY CHARS. 
,M0BE0!.M0DE1!,M0DE3 > JUST ACT AS A NULL BIT BUCKET 
NULKL .JUMP TO A NULL ACTION IF ANY OF THESE 3 MODES 



OR 



.NOW HERE IF CONTROL KEY IS M, 

MOM A.B .RETRIEVE DATA 

CPI 1 f IS IT THE KEY FOR A SIMPLE CHARACTER TO BE OUTPUT?? 

JZ KLPCHR SIF YES. GO PROCESS THE CHARACTER 

CPI 2 » IS IT FOR A HANGUP 

JNZ NOACTN .NOPE. IGNORE ENTIRELY 

CALL KILL. KLINIK JYUP. HANG 'EM UP ' 

EI .IDENTICAL CODE TO LOCATION 'NOACTN*. BUT THE 2 BYTES 

RET . HERE ARE CHEAPER THAN A \JHP\. I'M OUT OF PROM SPACE 
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2065 










fCODE FOR PRINTING THE 


2066 


003714 








KLPCHR! TSTRHY 


REMCTL 


(1) 


003714 


333 


203 




IN 


REMCTL 


(15 


003716 


346 


001 




ANI 


01 


2067 


A fk f M \ P\ ft 

003720 


312 


314 


007 


JZ 


KLPCHR 


2068 














206? 










IHERE WHEN READY 


2070 


003723 


072 


012 


040 


LDA 


EHBUF 


2071 


003726 


323 


202 




OUT 


REMDAT 


2072 


003730 


076 


035 




NULKLJ MVI 


A»"035 


2073 


003732 


315 


017 


010 


CALL 


TTOCOM 


2074 


003735 


363 






DI 





DESIRED CHARACTER ON THE KLINIK LINE 
5 SEE IF THE LINE IS READY FOR THE NEXT CHARACTER 
f READ DESIRED UART STATUS 

j CHECK IF SET? ZBIT=0 IF READY? ZBIT=1 IF NOT YET READY 
I IF NOT READY YET» BETTER WAIT LONGER 



JGET THE CHARACTER 
J PRINT IT 

;NOU MUST CLEAR THE HORB, AND INTERRUPT TO SAY DONE 
>G0 COMMON CODE 

J KEEP INTERRUPTS OFF BECAUSE TTOCOM TURNED IT ON 
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Aft? 77 A 








i' 1 \ 


AA777I 


707 

Oil 








AA7777 
WO/ 3/ 








(1) 


003737 


d!5 


216 


ATA 

030 


(1) 


003742 


033 


AAA 

000 




2078 


003744 








CD 


003744 


367 






2079 


003745 


072 


013 


040 


2080 


003750 


376 


AA< 

001 




^081 


003752 


7A1 

302 


A/ C 

065 


A< A 

010 












2083 


003 /bb 


0/2 


A1 ♦*} 

012 


A .4 A 

040 


2084 


AA77£A 
003/60 


1 A 7 
10/ 






2UOJ 










2086 










208/ 










•7 A GO 


AA77Z1 
003/61 








t i \ 
(1/ 


AA77Z1 

0037ol 


77*7 

33o 


201 




11) 


AA77Z7 


346 


AA1 




OAQO 
21-07 


093/ oj 


71 O 

312 


7i1 

361 


AA7 
00/ 


OAOA 
2V7V 










2091 










2092 










2093 










2094 


AA"?~7"JA 

003770 


072 


247 


AAA 

040 


2 09 J 


AA7"?77 

003/ /3 


77Z 

3/6 


Ai A 
010 




2096 


003/75 


7A1 

302 


A«I ~i 

012 


A4 A 

010 


209/ 










2098 










20?? 


AA 4 AAA 

004000 








(1) 


AAA AAA 
004000 


7*77 


^A7 

*:03 




(1) 


004002 


346 


001 




2100 


004004 


312 


000 


010 


2101 










2102 


004007 


170 






2103 


004010 


323 


202 




2104 










2105 


004012 


170 






2106 


004013 


323 


200 





in! UN 






DCT 

Kb I 


n 
I 


i r-n OCT TklTCDklAI MnfttT 


EXAH 


33 


IGET THE CDHHUNICATION WORD 


CALL 


EXAKSH 


i ANQ DO EXAH ASSUMING SHORT ADDRESS 


,ABBR 


33 


>ABBR TO BE ZAPPED PASSED AS TRAILING ARB 


INTQFF 




{ INTERNAL MODE OFF 


RST 


6 


JG0 EXIT FROM INTERNAL MODE 


LDA 


EHBUF+1 


{GET THE INTERRUPT CODE 


CPI 


1 


iIS INTERRUPT CODE .EQ, 1?? 


JNZ 


N0ACTN 


J JUMP TO "NO ACTION" IF NOT? CODE OUT OF BOUNDS 


LDA 


EMBUF 


} ACTUAL CHAR TO ACCUM 


MOM 


BrA 


?AND SAVE IT IN THE B REG 



5 CODE TO PRINT A CHAR PASSED FROM THE KS-10 CPU, CODE INTERRUPTS 
f THE 10 WHEN THE CHARACTER HAS FINISHED PRINTING 
CTYPCHR5 TSTRDY CTYCTL ? CHECK IS THE XMITTER READY?? 
IN CTYCTL * READ DESIRED UART STATUS 

AN1 01 5 CHECK IF SET 5 ZBIT=0 IF READY 5 ZBIT=1 IF NOT YET READY 
JZ CTYPCHR ?L00P UNTIL IT IS 

{FALL THRU WHEN READY 

{BUT BEFORE PRINTING? CHECK THE KLINIK LINE TO SEE IF IT GETS THE 

{CHARACTER TOO 

LDA CSLHODE {CHECK THE KLINIK MODE 

CPI .M0DE3 {IS THE KLINIK PARALLEL TO THE CTY LINE?? 

JNZ CTYOUT SJUHP IF NO, KLINIK DOES NOT GET THIS CHARACTER 

{FALL HERE IF YESi KLINIK LINE GETS A PIECE OF THIS CHARACTER TOO. 
KLTOO? TSTRDY REMCTL {SEE IF KLINIK LINE IS READY 
IN REMCTL {READ DESIRED UART STATUS 

ANI 01 {CHECK IF SET? ZBIT=0 IF READY? ZBIT=1 IF NOT YET READY 
JZ KLTOO ilF NOT YET? GO BACK AND TRY AGAIN 

MOV A?B 5CHAR TO ACCUM 

OUT REMDAT ? PRINT IT ON THE KLINIK LINE 

CTYOUT! MOV AjB {GET THE CHAR WE SAVED IN THE B REG, 
OUT CTYBAT 5 SEND TO THE UART 
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2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
211? 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 



J NOW CLEAR A DATA BUFFER FOR DEPOSITING O'S INTO THE MOS MEMORY 
SUE ARE USING IN LINE CODE HERE IN ORDER TO SPEED UP THE TYPE-OUT 
5QN KSIO TO 8080 XFER'S,. 



AAA Ai C 
(K)401j 


0/6 


Q66 


Hi IT 


A n f5TI 

A » 033 


Jlnlb lb THE ADDnEbb «t WlbH TO DErublT 


004017 


323 


103 


TT0C0HS OUT 


A2835 


iPUT IT INTO THE HARDWARE REGISTER 


004021 


257 




XRA 


A 


i CLEAR ACCUM* BECAUSE THE REST OF THE ADDR 




7T7 

616 


1 AC" 


OUT 


A2027 


SCLR THE OTHER HARDWARE REGISTERS 




616 


i A"3 
10/ 


OUT 


A1219 




004026 


323 


102 


OUT 


W2835 


? AND WE MILL MAKE ALL OF THE HARDWARE DATA 


004030 


323 


104 


OUT 


W2027 




004032 




106 


OUT 


W1219 




004034 


323 


110 


OUT 


W0411 




004036 


323 


112 


OUT 


yooo3 




AAA A A A 

004040 


076 


002 


HVI 


A»02 


iBIT TO SAY "WRITE FUNCTION" 


004042 


323 


113 


OUT 


A0003 


mm i/o wrt 113 ***** 








JTHIS "ADD A' yORKS BY LUCK.. I.E. 2+2=4 


004044 


20/ 




ADD 


A 


iBIT INTO ACCUM FOR "COM/ ADR CYCLE' 


AAA A AC* 

00404j 


&A6 


113 


OUT 


BUSARB 


mm i/o wrt us/4 ***** 


00404/ 


0/6 


001 


HVI 


A-i 


IBIT INTO ACCUM FOR "DATA CYCLE' 


A A A AC 4 

004051 


323 


4 4 A 

114 


OUT 


DTARB 


mm i/o urt ii4/i ttm 


004053 


076 


360 


HVI 


A » "0360 JBITS FOR 'CHECK NXH' » "CONSOLE REQVT ENB 












5'T ENB FOR DATA CYCLE' 


004055 


323 


210 


OUT 


BUSCTL 


5*****1/0 WRT 210/360 ***** 








5 HO THIS TyiCE TO GUARANTEE THE INTERRUTP GETS THRU 


004057 


076 


001 


P0KE10J HVI 


Ail 


5BIT FOR SETTING INTERRUPT TO THE KSIO 


004061 


323 


116 


OUT 


INT2KS 


iSET THE INTERRUPT 


004063 


323 


116 


OUT 


INT2KS 


?SET THE INTERRUPT 


004065 


373 




N0ACTN5 EI 




J OK FOR INTERRUPTS NOW 


004066 


311 




RET 




?AND OUT 
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11 










tSBTTL ttTTY HANDLER FOR SPECIAL CHARACTERS** 


2146 










fUHEN HERE? 


*B" REG CONTAINS THE STATUS OF THE CTY LINE 


2147 


00406/ 


l/y 






TTERRi HOy 


A»B fCOPY CTY STATUS TO ACCUM 


2148 


Art A A A 

0040/0 


346 


070 




ANI 


"070 » ANY ERRS IN THE CTY UART?? 


214? 


u0407id 


302 


4 4 A 

111 


A 4 A 

010 


JNZ 


TTERRi 5IF YESf GO CHECK THINGS ON THE CTY LINE 


2150 
2151 










jHERE IF GOT KLINIK ERRORS 


2152 


004075 


076 


025 




HVI 


Ai"025 } BEFORE JUMPING » RESET THE UART SO IT WILL WORK 


2153 


004077 


323 


203 




OUT 


REMCTL il/O WRITE TO RESET THE UART 


2154 














2155 


004101 


072 


156 


040 


LDA 


USRHB J CHECK USER MODE,. HILL NOT REPORT ERR IF IT IS 


2156 


004104 


247 






ANA 


A JSET FLAGS 


2157 


004105 


302 


335 


005 


JN2 


INTCH 5 IF WAS USER MODEi IGNORE OVERRUN AND HANDLE CHARACTER 


2158 


004110 


311 






RET 


5 BONE INT 
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01 Z A 

2160 


AAA 111 

004111 


7AZ 

346 


AC A 
ODO 




TTERRII ANI 


"050 


{SEE IF OVERRRUN OR A FATAL ERROR 


2161 
2162 










?N0W M 


iUST CLR 


ERROR FROM THE UART FIRST 


2163 


004113 


076 


025 






MVI 


Ar025 


5 BITS TO CLR ERROR CONDITIONS IN UART 


2164 


AA k 4 4 C 

004115 


323 


201 






OUT 


CTYCTL 


}*****I/0 WRT 200/25 ***** 


2165 


004117 


302 


131 


010 




JNZ 


TTERMS 


iNOy JUMP IF FATAL 


2166 


















216/ 


004122 


A70 

072 


1 cz 

lb6 


A A A 

040 




LDA 


USRMD 


5 BEFORE ISSUEING MESSAGE? IS USER MODE SET?? 


01 £G 
2150 


AAA 4 nC 

Uv412j 


0Z7 

26/ 








0RA 


A 


{TEST USER MODE FLAG 


Ol iO 
£.107 


AAAiOi 


7AO 


77S 


AA^, 




JNZ 


INTCH 


5 IF YES* USER MODE? THEN IGNORE THE ERROR 


21 /U 


















21/1 










5N0H M 


UST CLR 


OVERRUN ERROR FROM THE UART 


Lit I 


AAA 111 


A41 


OA7 


AAA 


TTERHSl LXI 


HfCSLHODE {GET CURRENT MODE OF KLINIK 


01 77 
21/3 




1 1 L 
116 








MOV 


CfM 


5 SAVE IT IN C 


01 74 
21/3 


AAA1 IK 


fill 

U66 


AAA 






mvi 


M»0 


;nou clear csl mode 


01 7C 
21/ J 


AAA 1 77 


7AC 








PUSH 


H 


f AND SAVE 'HsL* 


Ol "?Z 

21/6 


A A A 4 A A 

004140 










PLINE 


TTM 


} OUTPUT THE ERROR MESSAGE 


(1) 


AAA 4 A A 

004140 


777 

53/ 








RST 


3 


{PRINT LINE OF CHARS 


11) 


AAA1 Ai 


A7^ 


A77 






•ADDR 


TTM 


{BUFF TO PRINT 


01 77 
21// 


AA41 A7 


7A1 

o41 








POP 


H 


{AND RESTORE MEM POINTER 


01 "?o 
21 /B 


A A A4 a A 

004144 


1 Z 1 

161 








MOM 


H»C 


{REPLACE CSL MOBE AND GET OUT 


Ol 70 
21/7 


AAA 1 AC 

004 14 j 


71 1 

oil 








RET 




{AND RESTART NULL LOOP 


Ol OA 

21o0 


















2181 


AA A 4 A / 

004146 


A / 4 

061 


AAA 

000 


AAA 

044 


CNTCi 


LXI 


SPiRAHST+"02000 i GUARANTEE THAT CNTRL-C WINS 


2182 


004151 










PCHAR 


UPARR 




(1) 


004151 


317 








RST 


1 


5 GO PRINT CHAR IN TRAILING BYTE 


(1) 


004152 


136 








.BYTE 


UPARR 


JCHAR TO PRINT 


2183 


004153 










PCHAR 


CCHR 




Q) 


004153 


317 








RST 


1 


5 GO PRINT CHAR IN TRAILING BYTE 


(1) 


004154 


103 








.BYTE 


CCHR 


{CHAR TO PRINT 


2184 


004155 


303 


255 


001 




JMP 


REINI 


{JUMP AUAY 



VER 6,2 KS10 CONSOLE PROGRAM CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-MAY-79 16150 PAGE 3-65 
HC0RE.M80 **TTY HANDLER FOR SPECIAL CHARACTERS** 



2186 



5 LOCAL SUBROUTINE TO RESET TTY INPUT BUFFER 



2187 004160 041 114 041 BFRSTl LXI 



2188 004163 042 215 040 

218? 004166 042 227 040 

2190 004171 

2191 004173 

2192 004175 

2193 004177 311 



SHLB 
SHLB 
CLRB 
CLRB 
CLRB 
RET 



HjBUFBG i buffer beginning 

BUF, 5 RESET CURRENT BUFFER POINTER 
FIRST j RESET CMB POINTER 
RPENB I CLEAR REPEAT KILLER 
CMBS,, JSAY LINE IS DONE.. AT BEGINNING OF THINGS 
BFCNT ? CLEAR CHAR COUNT 
J AND RETURN 
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2195 
2196 
2197 

2198 004200 376 007 

2199 004202 310 

2200 004203 

(15 004203 315 137 004 
(15 004206 351 037 

2201 004210 303 132 034 
2202 

2203 
2204 
2205 
2206 
2207 

2208 004213 

(15 004213 315 137 004 
(1) 004216 357 037 

2209 004220 041 271 040 

2210 004223 042 125 040 
221 i 

2212 004226 
2213 

2214 004230 041 237 010 

2215 004233 042 346 040 

2216 004236 311 



ITHIS IS THE INITIAL MODE OF THE KLINIK LINE AFTER A POWER UP* ALSO> WHEN 
I THE KLINIK LINE IS DISABLED; OR IN "PROTECT 1 MODE? BUT NO PASSWORD HAS 
? BEEN SET BY THE OPERATOR 
HODEOi CPI BELL 5N0 ECHO IF RECEIVE BELL 
RZ SBELLj SO OUT 

KLINE NOACCS {PRINT A MESSAGE FOR THE KLINIK LINE ONLY 
CALL KLINE 5 PRINT LINE OF CHARS 
.ADDR NOACCS » BUFF TO PRINT 

JMP KILL. KLINIK (HANG UP LINE SO REPEAT ?NA'S DONT HANG SYSTEM 



5THIS IS KLINIK MODE 1. THIS IS THE MODE OF THE KLINIK LINE WHENEVER 
J THE FRONT PANEL SWITCH IS IN THE PROTECT POSITION. AND WE ARE WAITING 
{FOR THE PASSWORD TO BE ENTERED, 
HODEli KLINE QPW f BEGIN BY PRINTING "PUi * 

CALL KLINE » PRINT LINE OF CHARS 

,ADDR QPW {BUFF TO PRINT 

LXI H.KPWBUF {INITIALIZE THE BUFFER FOR SAVING TYPED PASSWORD 
SHLD KPWPNT {SAVE IN THE BUFFER POINTER 



CLRB KPWCNT J AND CLEAR THE PASSWORD CHARACTER COUNTER 



LXI HjPW.WAIT {NOW ADDITIONAL KLINIK CHARS MUST DISPATCH TO 
SHLD MODDIS ? THE PLACE THAT WAITS FOR A COMPLETE PASSWORD 
RET {END OF INTERRUPT 
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2218 






2219 






2220 






2221 


004237 


376 


2222 


004241 


312 


2223 






2224 


004244 


315 


2225 


004247 


107 


2226 






222? 






2228 


004250 


072 


222? 


004253 


074 


2230 


A A i 

004254 


376 


2231 


004256 


312 


2232 


004261 


062 


2233 






2234 


004264 


052 


2235 


A A & A t 

00426? 


160 


2236 


004270 


043 


223? 


004271 


042 


2238 


004274 


311 


2239 






2240 






2241 








00427b 


021 


2243 


A A * A A 

004*00 


041 


2244 


004303 


006 


2245 






2246 


004305 


032 


224? 


004306 


247 


2248 


004307 


312 


2249 






2250 


004312 


004 


2251 


004313 


276 


2252 


004314 


302 


2253 






2254 


004317 


023 


2255 


004320 


043 


2256 


004321 


303 



333 010 



I THIS IS THE ENTRY POINT UHEN THE PERSON IS IN THE PROCESS OF TYPING THE 
» PASSWORD. UE STORE THE PASSWORD AS IT IS TYPED? THEN UHEN DONE? UE WILL 
* VERIFY THAT IT IS CORRECT 

PW.WAITJ CPI CRCHR IIS IT AN END OF LINE CHARACTER 

JZ PW.TST I JUMP IF YES., TINE TO VERIFY THE PASSWORD 

CALL UP.LO 5 GENERATE ONLY UPPER CASE FOR PROGRAH INTERNALS 
NOV B?A 5 SAVE THE CHAR IN B REG FOR A LITTLE BIT 

5IF NOT END OF LINE? JUST ADD IT TO THE BUFFER OF CHARS THAT IS THE PASSWORD 
LDA KPWCNT I FIRST THINGS FIRST? SEE HOW MANY CHARS IN THE BUFFER 
INR A 5 UPDATE TO ACCOUNT FOR THIS ONE 
CPI 7 J IS IT TOO HANY 
JZ PW.ERR IJUHP IF YES, ITS A PASSWORD ERROR 
STA KPWCNT I ELSE SAVE THE UPDATED COUNT AND CONTINUE 



LHLD 


KPWPNT 


?6ET THE BUFFER POINTER 


NOV 


M?B 


IPUT THE CHARACTER IN THE BUFFER 


INX 


H 


1 UPDATE THE BUFFER POINTER 


SHLD 


KPWPNT 


IPUT THE POINTER BACK 


RET 




I AND END OF INTERRUPT 



I CODE FOR VERIFYING THAT THE PASSWORD ENTERED IS THE CORRECT AND VALID 
I PASSWORD 

PW.TSTJ LXI DiPASSUORD ?D?E POINTS TO THE EXPECTED PASSWORD 
LXI H?KPWBUF IH?L POINTS TO THE TYPED IN BUFFER 
B?00 I'B' WILL BE THE COUNTER 



HVI 

LDAX 

ANA 

JZ 

INR 
CMP 

JNZ 

INX 
INX 
JHP 



D I FETCH UP AN EXPECTED CHARACTER 

A ISET THE FLAGS 

PW.END I IF 'END'? 60 MAKE SURE TYPEIN IS TERMINATED 

B I ELSE UPDATE OUR COUNTER 

M I AND COMPARE A CHAR 

PW.ERR I IF MIS-COMPARE REPORT IT AS ERROR 

D I UPDATE EXPECTED POINTER 

H I UPDATE TYPED IN POINTER 

PH.. I CONTINUE 
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£.lOQ 










SEND,. THIS IS ONLY TO VERIFY THAT TYPED TERMINATED AT THE SAME NUMB! 


11CQ 

1107 










{CHARACTERS AS EXPECTED 


11 £ A 

2260 


AA AHA 

004524 


A71 
0/2 


1 17 

127 


AAA 
040 


PU.ENDJ LDA 


KPIiCNT » GET EXPECTED COUNT 


11 Z1 

22fcl 


AAA 717 


17A 
2/0 






CMP 


B i CHECK AGAINST THE CURRENT COUNT 


I lb I 


AAA 17 A 

Uv455\/ 


11 1 
oil 


"tCC 


A1 A 
010 


JZ 


py.QK ;and JUMP IF COUNTS MATCH 


112.7 














2264 










f FALL THRU TO ERROR IF CHARACTER COUNTS DON'T MATCH 


llbo 


AAA 777 

004555 








Py»ERR5 KLINE 


CMDNG JBIVE USER AN ERROR MESSAGE 


i 1 \ 


AAA 777 

004555 


71 c: 
513 


1 77 
15/ 


AAA 
004 


CALL 


KLINE » PRINT LINE OF CHARS 


^1) 


AAA17A 
004556 


A1X. 

026 


A77 
05/ 




.ABBR 


CMDNG iBUFF TO PRINT 


11/i 
2266 


AAA7AA 

004540 


AA1 

041 


177 
2/ / 


AAA 

040 


LXI 


HjFURTRY 5HAD ERROR. ONLY GET 3 CHANCES FOR ERRORS 


11i7 

226/ 


AAA7A7 
004545 


A£A 

064 






INR 


M i UPDATE ERROR COUNT 


11 iQ 

I lb 6 


AA ^ 7 A A 

004544 


1 7i 

1/6 






H0U 


AiM j PLACE COUNT IN ACCUM FOR A TEST 


11/0 


vv J to»w 


774 

5/Q 


AA7 
UU5 




CPI 


3 ISEE IF STRUCK OUT 


117A 


AAA7A? 


71 1 

51Z 


777 
0/0 


A1 A 


JZ 


KLIRST »G0 RESET KLINIK LINE IF USER STRUCK OUT 


1171 
22/1 














1171 


AAA76T1 

0045j2 


7A7 
505 


11 7 

215 


A1 A 
010 


JMP 


M0DE1 »ELSE GIVE HIM "FBI 1 MESSAGE AGAIN 
















1174 










f HERE IF EVERYTHING MATCHED 


117c; 
11/ 


00 45 J J 


71 c f 
51%J 


1 A1 

101 


A7A 

054 


Py.OKI CALL 


SETM2 } CHANGE LINE TO MODE 2 


1174 
£lft 


AAA7ZA 

004560 








KCHAR 


'0 WHEN GOOD py» SENT OUT AN 'OK' 




004560 


71 
51D 


117 
11/ 


AAA 
004 


CALL 


KCHR >GG PRINT THE CHARACTER 


/ 1 \ 
(1/ 


AAA717 

004563 


117 
11/ 






.BYTE 


'0 




AAA7Z h 

004364 








KCHAR 


'K 


\ i / 


AAA7IA 

004564 


71 5 

51D 


117 
11/ 


AAA 

004 


CALL 


KCHR 5G0 PRINT THE CHARACTER 


U) 


AAA"? / "3 

00436/ 


113 






.BYTE 


'K 


2278 


004370 








py.OUTJ CLRB 


pyRTRY f CLEAR ERROR COUNTER 


227? 


004372 


311 






RET 


JEXIT 


2280 














2281 










jKLINIK LINE RESET CODE. FOR RESETING KLINIK LINE AND HANGING UP THE 


2282 


004373 


315 


134 


034 


klirst: call 


HANGUP 1 GO HANG UP THE KLINIK LINE 


2283 


004376 


315 


006 


034 


CALL 


SETM1 »DROP BACK TO MODE 1 


2284 


004401 


303 


370 


010 


JMP 


py.OUT fZAP ERROR FLAG THEN OUT 



VER 6,2 KS10 CONSOLE PR06RAH CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-MAY-79 16550 PAGE 3-69 
HC0RE.M80 **TTY HANDLER FOR SPECIAL CHARACTERS** 



thrift / 

2286 






2287 






2288 






228? 


004404 


376 


2290 


004406 


302 


2291 






2292 


004411 


072 


2293 


004414 


247 




Aft A A 4 r 

UU441 j 


'1 AO 








id.70 






111/ 










A70 

V/i- 


liyy 


Aft A JIT 




2300 


004424 


310 


2301 






2302 






2303 


004425 


333 


2304 






2305 


004427 


346 


2306 


004431 


312 



jKLINIK LINE H0DE 2, THIS IS STREAM INPUT/OUTPUT, ALL CHARACTERS FROM 
rTHE KLINIK UART ARE SENT TO THE SPECIAL KLINIK COMMUNICATION U0RDS 
SAND ALL WORDS FROM THE KLINIK C0MH WORDS ARE OUTPUT TO THE KLINIK LINE. 
HODE25 CPI CNBCK .FIRST SEE IF THE KLINIK USER WANTS A MODE CHANGE 
JNZ KL3435 »IF NOT, GO SEND INFO TO THE KLINIK COMM WORD 

LDA MMFLG » BEFORE GOING TO MODE 3, SEE IF MM MODE 

ANA A J SET 8080 FLAGS 

JNZ END.USR J IF YES, MM MODE, ACT LIKE FROM A CTY 

5 FALL THRU IF WANTS TO CHANGE MODES, BUT BEFORE CHANGING, CHECK IF HE'S 
5 ALLOWED TO CHANGE MODES, 

LDA KLLINE.ON » CHECK IF KLINIK IS ON, % USER IS ALLOWED TO CHANGE 

ANA A 5 SET FLAGS 

RZ ilF NOT ENABLED TO CHANGE, JUST IGNORE THIS INTERRUPT 

i WELL » HE IS ALLOWED TO CHANGE. SEE IF THE FRONT PANEL SWITCH IS UNLOCKED 

IN BOOTSW ****** I/O RD 301 ***** 
JNOTE THAT BIT LO IS TRUTH, IF BIT HI IS FALSE ( DISABLED ) 

ANI 4 f CHECK THE CONSOLE ENABLE BIT 

JZ SETM3 J GO MODE 3 ONLY IF PANEL NOT LOCKED, LET SETM3 DO "RET* 
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HCORE.MBO 


**TTY HANDLER FOR SPECIAL CHARACTERS** 




2303 








» THIS IS WHERE YOU ACTUALLY WRITE THE DESIRED CHARACTER INTO THE KLINIK 


230? 








ILINE COMMUNICATION WORD 


2310 


004434 












2311 


004434 


062 


035 040 


OTA 
Din 


LHKBur 


*DHT rUADAPTrD Tkl A BAil BlICTCB 

» PUT CHhRACTER IN A RAn BUFFER 


2312 


004437 


076 


034 


Mi IT 

nvl 


A? 034 


*riroTDCTi AnriDiroc end rirDncTTkir- puadaptcxi 
fDlSIRLD ADDRESS FOR DtrUSiINb CHARACTER 


2313 














2314 


004441 


323 


103 


OUT 


A2835 


f WRITE ONLY RELEVANT PIECE OF THE ADDRESS 


2315 


004443 


257 




XRA 


A 


? THEN CLR ACCUH 


2316 


004444 


323 


105 


Oil! 


A*1A*V7 


? AND CLK THE REST OF THE HARDWARE ADDRESS RESISTtR 


iili 


AA k hi i 

004446 


323 


107 


OUI 


Ai *M O 




2318 


004450 


323 


106 


OUT 


W1219 


? CLEAR PIECES OF DEPOSIT DATA WHICH HUST BE ZERO 


231? 


004452 


323 


110 


OUT 


y04ii 




2320 


004454 


323 


112 


fil IT 

Out 


W0003 




till 














2322 


004456 


076 


002 


NUT 

nvl 


A. AT 
HJV£ 


jell IU afli Wtult rUNtliUn 


2323 


004460 


323 


113 


UUI 


AAAA7 

MVVUJ 


»***♦* 1/U shi Hi ***** 


2324 
2325 








sTur mi i nuTMft 


■ABB A" 


WORKS BY LUCK.. I.E. 2+2=4 


2326 


004462 


207 




HUU 


A 


SBIT INTO ACCUM FOR "COM/ ADR CYCLE" 


2327 


004463 


323 


115 


Hi IT 


BUSARB 


mm 1/0 WRT 115/4 ***** 


2328 
232? 


004465 


072 


035 040 


i ft A 

LJJft 


CHRBUF 


?N0W GET THE CHARACTER WE WANT 


2330 


004470 


323 


102 


Hi IT 
UUI 


y2835 


*PUT IT IN THE HARDWARE REGISTER 


2331 


004472 


076 


001 


nvl 


Ail 


SAND GET THE VALID BIT TO GO WITH THE CHARACTER 


2332 


004474 


323 


104 


OUT 


W2027 


IPUT IT IN THE HARDWARE REGISTER 


2333 














2334 








i AND BY LUCK? 


THE ACCUM HAS JUST WHAT WE NEED FOR THE NEXT STEP 


2335 


004476 


323 


114 


OUT 


DTARB 


ft**** I/O WRT 114/1 ***** 


2336 














2337 


004500 


076 


360 


HVI 


A»"0360 5BITS FOR 'CHECK NXH'i 'CONSOLE REGVT ENB FOR COM/ ADR" 


2338 












>'T ENB FOR DATA CYCLE" 


233? 


004502 


323 


210 


OUT 


BUSCTL 


»*****I/0 WRT 210/360 ***** 


2340 














2341 








fDO THIS TWICE TO GUARANTEE THAT THE INTERRUPT HAPPENS 


2342 


004504 


076 


001 


HVI 


Ail 


fBIT FOR SETTING INTERRUPT TO THE KS10 


2343 


004506 


323 


116 


OUT 


INT2KS 


5 SET THE INTERRUPT 


2344 


004510 


323 


116 


OUT 


INT2KS 


?SET THE INTERRUPT 


2345 














2346 


004512 


311 




RET 




i AND EXIT NORMALLY..,. 
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CMDS.M80 **** CONSOLE COMMANDS AS IMPLIHENTED «tt 



0740 










.SBTTL Wtt CONSOLE COMMANDS AS IMPLIHENTED **** 


^"2 AO 
^34V 










.SBTTL tt% 'EB* CMD *tt 


2350 










{THIS CODE PERFORMS THE 


■EXAMINE BUS* CONSOLE FUNCTION. 


2351 


004513 


AT * 

07o 


A A 4 

Oul 




EBCHDJ I 


AiOl 


{FIRST CLR "R CLK ENB* 


2352 


004515 


"TIT 

323 


1 * A 

2i0 




OUT 


BUSCTL 


{**«** i/o urt 210/001 ***** 


07C"? 

2353 


00451/ 


3x5 


A "7,1 

0/4 


A77 

033 


CALL 


RDATT 


mttt I/O RD "Of I»2f3il03 I (READ BITS 0-35) 


•nc/i 


AAASOO 


A1 


AAA 




*ADDR 


EMBUF 


{PLACE BITS 0-35 INTO RAM BUFFER AREA 'EMBUF' 


07^5 
















07S"Z 










{READ THE REST OF THE I/O REGISTERS AND SAVE IN THE RAM 


0757 


A A £50 A 


A41 


1 70 


AAA 


LXI 


HfRMlOO 


5GET BEGINNING ADDRESS OF RAM BUFFER AREA 

f wi>i L'UuiniUnU nuJu , f\L.w%r ur i\nii vUF i uu ni\u.n 




AA4507 


ATI 




Ai 1 


LXI 




IDiE UILL POINT TO SOURCE OF REGS TO BE READ 




AAA*?"?'* 


AAA 


A1 A 




HUT 

MY i 




iTHERF ARF R RFRTSTFRS Til BF RFAIH 


















07 zi 










Fft*RTJTN! I Mi 




SFFTPH HP FTRST RFRTSTFR TO BF RFMi 




AAA575 




^A7 
£.0/ 


A1 7 


l/HLL 


pc* ||T| 


± r Af | cd pfiNHANri 
* bnLL Li\ wunrinnij 


2363 


004540 


167 






i lUV 


lifn 


•phpy rf°,ii[ m of pfah tnta tmf r&h spmt 

?UUr 1 mLuULiD Ur PtE.nL* InlU mil i\Mfl urriWL 


2364 


004541 


023 






lit A 


fl 
U 


fUTUHiC. SUURwL rUI«flli\ 


'HAS 




A47 






INX 


H 


{UPDATE DESTINATION POINTER 


!HaA 




AA C 5 






DCR 


B 


fDOUN THE COUNTER 


07i? 




7A'7 


17£ 


Ai 1 


JP 


EB.RDIN 


{CONTINUE LOOP 


07*0 


















AAA5A7 








XRA 


A 


5 CLR ACCUH MUST SET 'R CLK ENB* 


07 7 A 
0771 


AAA55A 


707 
3i-3 


01 A 




OUT 


BUSCTL 


nun i/o brt 210/0 mn 


do/l 


AAA 550 








PLINE 


EBHED 


{EB CMD HEADER MSG 


i A \ 
KU 


0045j2 


77*7 

337 






RST 


3 


{PRINT LINE OF CHARS 


<1) 


004553 


041 


037 




(ADDR 


EBHED 


{BUFF TO PRINT 


2373 


004555 


315 


205 


034 


CALL 


DECNET 


{PRINT THE HEADING 


2374 


004560 


315 


347 


030 


CALL 


P36. 


{GO PRINT IT 


2375 


004563 








PCRLF 




{AND A <CRXLF> 


(2) 


004563 


347 






RST 


4 




(2) 


004564 


002 






♦BYTE 


2 




2376 


004565 


315 


205 


034 


CALL 


DECNET 


{AND MAKE SURE THIS GETS SENT 
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CHBS.M80 *tt 'EB' CMD «* 



2378 


004570 


041 


230 


on 




LXI 


H»IORGS 


237? 


004573 


021 


172 


040 




LXI 


DfRHlOO 


2380 


004576 


006 


010 






HUI 


B»8 


2381 
















2382 


004600 


315 


254 


030 


EBli 


CALL 


P8BIT 


2383 


004603 


043 








INX 


H 


2384 


004604 










PSLAhH 




(2) 


004604 


317 








RST 


1 


(2) 


004605 


057 








*BYTE 


SLASH 


2385 


004606 


353 








XCHG 




2386 
















238? 


004607 


315 


254 


030 




CALL 


P8BIT 


2388 


A A A i A *\ 

004612 


A A "7 

043 








INX 


H 


2389 


004613 


353 








y,-.| tn 

XlHG 




2390 


004614 










PSPACE 




(2) 


004614 


317 








RST 


1 


(2) 


004615 


040 








.BYTE 


SPACE 


2391 


004616 


005 








OCR 


B 


2392 


004617 


302 


200 


011 




JNZ 


EB1 


2393 


AA A / *\i"t 

004622 










F'CRLF 




(2) 


AA A 1 f\f\ 

004622 


T A "7 

347 








RST 


4 


(2) 


004623 


002 








.BYTE 


2 


2394 


AA A I A 

004624 


315 


205 


A "7 A 

034 




CALL 


HECNET 


2395 


004627 










ENDCHB 




/ 4 \ 
(1) 


AAA 

004627 


"74 < 

311 








RET 




2396 
















2397 










? END THIS CODE WITH A 6 


2398 


004630 


100 






I0R8SJ 


.BYTE 


"0100 


2399 


004631 


101 








.BYTE 


"0101 


2400 


004632 


102 








.BYTE 


"0102 


2401 


004633 


103 








.BYTE 


"0103 


2402 


004634 


300 








.BYTE 


"0300 


2403 


004635 


301 








.BYTE 


"0301 


2404 


004636 


302 








.BYTE 


"0302 


2405 


004637 


303 








.BYTE 


"0303 


2406 

















» "H*L" NOW PNTS TO LIST OF I/O REGISTER NAMES 

J "D»E* NOW PNTS TO CORRESPONDING LIST OF DATA FOR I/O REG 

5 ACCOM NOy CONTAINS A COUNT OF 8 (FOR 8 I/O REGS) 

i PRINT FIRST REG NAME 
5 BUMP TO NEXT 
JPRINT '1* 

I GO PRINT CHAR IN TRAILING BYTE 
5CHAR TO PRINT 

5SUAP SO *H»L" POINTS TO DATA 

I PRINT DATA FOR THAT REG 
J BUMP TO NEXT 

tSUAP BACK-'HjL* POINTS TO NAME AGAIN 
5 SPACE OVER 

»G0 PRINT CHAR IN TRAILING BYTE 
5 CHAR TO PRINT 
jDOHN COUNT 

> CONTINUE TILL DONE ALL EIGHT REGS 



J AND FINALLY HAKE SURE LAST THING GETS SENT 

fEND-QF-COMMANB 

» RETURN TO CALLER 

BYTE BUFFER OF THE I/O REGS NAMES? IN BINARY 

f FIRST REG NAME IN BINARY 

»2ND 

J3RD 

»4TH 

»5TH 

56TH 

»7TH 

J8TH 
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CMDS.M80 ttt "DB" CMD ttt 



AO 










.SBTTL 


ttt 'DB* CMB ttt 


240? 










f THIS CODE PERFORMS THE 


utruoi i dud uursull ruiiwiiur? 




QQ4640 








TiDPMTj * 

JJDbnlU 






2 TO PPli PIIMUTMft?? 

f id uru rvurtninurr 


CD 


AA A / A A 

004640 


347 








DOT 


A 

4 




CD 


AAA / A 4 

004641 


AA / 

006 








*DT It 


6 




2411 


004642 


332 


251 


011 




IP 

Jt 


TiXii 


fblur LUUt Ir hi tKU Ur LUnnHfw 


2412 


004645 










AC*r*7Z 




?1F NOT* 60 fiSbEnBLE rtkb* 


(1) 


004645 


347 








DOT 

Kb I 


A 

4 




(D 


004646 


010 








♦ is! It 


o 






2413 


00464? 


042 


040 






*hUUK 


SubHii 


*AklI*i DMT THTfi fcltrCTD tDHO Aft* 

fftNU rui IN 10 DUrrtK duo hi* 


2414 


















2415 


AA A / 

004651 


315 


171 


033 




PA! \ 


ATlATT 


2***** T /n MPT TH P FiATA ft~75 TlATA PrR/flltfKM ***** 
?***** 1/U wl\l 1U f\ I'HlH V OJ UHIR KLUlULUJoJ ***** 


2416 


A A A / E* A 

004654 


A AO 

042 


AAA 

040 






Anno 




s&iirnrp Annprcc nc cniiprF nc tiata 
fDUrrtK RUUKcba Ur oUUKLt Ur L'ftm 


241/ 


















OA1 

241o 


AAA /C/ 

UU46D6 


<Uf/ 








Ai\n 


ri 


•rip apphh $n paw pi p T/n ppi? n r i 

?LLf\ HUUUrl DU unit uLn i/U fULu ilJ 


OA1 


AAA i 57 


o2o 


11j 






UU I 


ft! RARE 


****** JL/U wl\ i iiUf V ***** 


242U 


















2421 


AAAZZ1 

UU4661 


U/6 


141 
141 






HUT 


til Ui*tl 


SfcTTQ Tf> QFT 8 PHMQni F PFQ 8 £ S T FNE PAP PHN/ATiP" 
?DliO iu DC. J UUnDUlX PiC.li & i LrtD ruf\ uUn/Hi £ f\ 


2422 




7^7 
O2o 


01 A 






UU 1 


BIIQPTI 


?***** JL/U wl\ i iiv/ Iii ***** 


2425 


















TAT A 

2424 


A. A A / / C 

00466D 










BUSRESP 


ARBRESP 


ittttt 1/0 READ 301 ««» 


(1) 


004665 


315 


245 


032 




CALL 


BUSRESP 


JB0 A CALL TO EXECUTE THIS CODE 


(15 


004670 


020 








.BYTE 


ARBRESP 


5BITS TO BE CHECKED 


2425 


004671 


302 


022 


036 




JNZ 


N0ARB 


J IF NO ARB RESPONSE yiTH 'BUS REQ'j ABORT 


2426 


















2427 


004674 


315 


353 


011 




CALL 


DBRDIN 


560 READ RESULTS i AND DO A 36-BIT COMPARE 


2428 


004677 


302 


370 


011 




JNZ 


BBERR 


J IF 'Z-BIT* NOT SET REPORT MISCOHPARE 1 ABORT 


2429 
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CMDS.M80 m 'W CMC *** 



•1A71 










?DtLUrtU nriLr Ur 


tUnnHrtit 




2432 


004/02 


71 S 

31j 


1 71 
1/1 


A77 
033 


LftLL 


A ft ATT 


jLLh UU1 ULU LhULt 


2433 


004/03 


364 


A1 Z 

016 




ATifiD 

♦ hJJBK 


MAftAAA 

nftUOOO 


*LITTU Al 1 7rDnr£ 


2434 
2433 


AAJ17A7 

004/0/ 


31j 


136 


A77 

033 


L-hLL 


mm i I 


i***** t /n udt tjata a_7^ AfitiD Drn/nir&scH ***** 
fPIP i/U ^hl ilHlH U~3tj ftliith htbitvtnb, 1 


2436 


AA£71 *J 

004/12 


AAO 

042 


AAA 

040 




♦rook 


Tjfii^Aft 
DUOHU 


fDUrrth HUlihtbb Ur bllUKut Ur Unln 


243/ 
















^A7Q 


AAA"?1 A 


A7A 
v/o 


AA1 




nvi 




spttq m qpt *n&T&. rvn r 2 

?DilO IU DLl imlti L-iL-LL 




AAA71 i 


707 


1 1 A 




mil 


rt m t a 

UIl*t 


T/rt klPT 11 A/1 ttttt 
f*$*** I/U wl\ I ii*f/I ***** 




















AA479A 


A 7A 
v/o 






HUT 




iRTm FftR "rn^mniF rfos 'tfnr for rriH/An r 8 

yDiitj rur\ 'jUniJULt. r\t-i,t ? iunj? rui\ wuh/ ny n 


OAA1 














5«T ryR cfip rYnr , « , i^TrM ti&ia 

J I C.RD ru!\ yHIH L-ftLL ? LHSLn i»RlR OLrii 


'>AA7 


AAA799 


7T7 


11 A 




nut 

UU 1 


DUub 1 L 


«ttt*t T/ll yRT 91 ft/7 A7 

f***** i/U wl\! £.iv/uu^ ***** 


">AAA 
















243D 


AAA70A 










Appprcp 


5 4**** T /n Pfi 7A1 ***** 
****** i/U M* Ovi ***** 


/ 1 \ 


A A A "?**} A 

004/24 


71 5 


o,1£ 
24j 


A 7-1 

032 


LHLL 




fUU fi l/HLL IU bAtLU ! t I nib LUUt 


(1) 


AA 47*57 

004/2/ 


A1A 

020 






♦ bile 


HhDhc.br 




2446 
















^AAl 

*:44/ 


AAA77A 

004/30 


7 AO 


AO'S 

022 


A7£ 




rtUHhD 


fir NU Hf\l? KtbrJ HUUM IslSn ^rI« nftLr fltbOHut 


OAAO 
















1AAQ 


AAA777 












SHAM iRIIIIT fi^Tfi ^rk'^nM! PTfRr?? 
f nUw HDUU I l«n 1 H Hui\nUwLtLL*UL : : 


i 1 \ 


AAA777 


7i 


OAR 


A70 


LrHLL 


BUSRESP 


rBO A CALL TO EXECUTE THIS CODE 


i 1 ^ 


AAA77A 


AA1 
vUi 






♦ MIL 


BATACK 


>BITS TO BE CHECKED 




AAA77"? 


71^ 


A1 A 


A7a 




N0ACK 


SJUMP IF NONE 


















2452 


004742 


315 


353 


on 


CALL 


DBRDIN 


160 READ IN RESULTS AND COMPARE RESULT 


2453 


004745 


310 






RZ 




ilF Z-BITf THEN OK TO EXIT 




























f ELSE FALL INTO 


THIS CODE IF A MISC0MPARE 


2436 


AAA7AI 

004/46 








PCHAR 


BCHR 


J PRINT "B" 




AAA7AA 


717 

Oi/ 






RST 


1 


>G0 PRINT CHAR IN TRAILING BYTE 




AAA7A"? 


i AA 






•BYTE 


BCHR 


1 CHAR TO PRINT 


£4vJ/ 
OAC*Q 


AAA7^A 


7A7 


77*> 


A1 1 
vii 


JMP 


BBCOM 


fAND NOW THE ERR FINISHES UP LIKE THE 1ST HALF 


24-Jd 










» COMMON SUBROUTINE TO READ IN THE CONTENTS OF THE KS10 BUS S COMPARE AGAINST 


A A / A 

iJ460 










f THE DATA UHICH HAS PUT ONTO THE BUS 


2461 


004753 


315 


074 


033 


dbrdin: call 


RBATT 


mm i/o rd 0fii2»3»i03 ttm 


2462 


004756 


100 


040 




.ABDR 


TMPB2 


? PLACE TO PUT RBATA 0-35 


2463 
















2464 


004760 


315 


022 


033 


CALL 


CHP36 


J CHECK DATA JUST READ US. DATA SENT 


2465 


004763 


042 


040 




.ABDR 


BUSAB 


!SENT BATA 


2466 


004765 


100 


040 




.ABBR 


TMPB2 


.RECEIVED DATA 


2467 


004767 


311 






RET 




j DONE 
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CMDS.M80 ttt 'DB' CMC M* 



246? 










J'DB' COMMAND CODE FOR THE CASES WHERE DATA DEPOSITED ON 


2470 










JBUS IS NOT THE SAME AS THE DATA READ BACK FROM THE BUS, 


2471 










J... BY THE HAY 


» .RIGHT W 


M THIS IS PRETTY SLQPPi CODE**** 


2472 


004770 








BBERRJ PCHAR 


CCHR 


f PRINT ft C* 


(1) 


004770 


317 






RST 


1 


* f*fl f"«r"iTl!T f*!tAF"i Tl! TfiATl Tllf' TiVTr* 

f80 PRINT CHAR IN TRAILING BiTE 


(1) 


004771 


103 






.BYTE 


CCHR 


r CHAR TO PRINT 


2473 


004772 








DBC0M5 PLINE 


HS610 


f ?C III 


(1) 


004772 


337 






RST 


3 


fPRINT LINE OF CHARS 


H V 
(1) 


004773 


A / 1 

062 


A7T 

037 




.ADDR 


MSG10 


iBUFF TO PRINT 


2474 
















2475 


004775 


041 


042 


040 


LXI 


H; BUS AD 


jhDBR Or 36-BI1 DATA 


2476 


005000 


315 


352 


030 


CALL P36 


*liniJ DDTkIT TUAT ft AT A 

mm FhlNT THAT DATA 


2477 
















2478 


AACAATT 

005003 








PLINE 


DRCVD 


j hbUtlvtlJ lift 1 h 


/ i \ 
(1) 


AACAA7 


77*7 

33? 






RST 


3 


jrKlNI LINE Ur LHAKb 


(1) 


AAET AA * 

005004 


075 


0a7 




.ADDR 


DRCVD 


iBUFF TO PRINT 


2479 
















2480 


005006 


041 


100 


040 


LXI 


H?TMPB2 


JTHIS IS ADDR OF RECEIVED DATA 


2481 


005011 


315 


352 


030 


CALL 


P36 


iPRIHT THAT 36-BIT DATA 


2482 


005014 








PCRLF 




} AND CR-LF 


(2) 


005014 


347 






RST 


4 




(2) 


005015 


002 






.BYTE 


2 




2483 


005016 


041 


004 


000 


LXI 


H»4 


fPASS ERROR CODE BEFORE EXIT 


2484 


005021 


303 


016 


036 


JMP 


ERRRTN 


pGO FINISH yiTH THE ERROR CODE 
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CHHS.H80 ttt 'EM* CHD ttt 













.SBTTL 


ttt 'EM' CHD «* 












iTHIS IS THE ACTUAL 'EM* C0HHANB CODE 


OAQQ 
24oo 


















2407 


U0D024 


770 


A70 
0,52 


A1 

012 




ip 
JL 


tni 


?bf\ir tui't lr hi tHu Ur LunnHNU 


OAQA 

24V0 


00j02/ 


71 C 


i OA 
120 


A1 7 
013 




PA! I 




sfifi etctpu hp Ay AfiriDrQC th fyahtmst 
yuu rtfUl Ur hr RUuKtao !U tAHniNt 


24V1 


















OAOO 

24V2 


AA£*A70 
WJV32 


OCT 
2j/ 






tni ♦ 


AF\H 


A 

H 


5 Pi CAD APPtlJii 


247,5 


AA5A77 


A£0 

062 


A71 

vol 


ft Aft 

040 




QTA 


cycvT 

LRL A 1 


fflNlJ ot! oil trt Lnit wiLL IvRUw wrtfii lu UU 


OAGA 


















i'Vfti 


AA C ,A7A 


A01 


A17 
Ui/ 


AAA 




I Y? 
LAI 


ft • MFHATi 


?HI«lu\LOu rUri FlLnUi\I LUU* 




















9497 


AASAAI 


A7A 


AAA 




ehint; 


MVI 


Ai04 
n ? 


iMT TO W 8 RFATl FiiHfTTilM* 


"7498 


















7499 

iU*?7 7 




IV/ 






EN2NB* 


HOV 


B»A 


5 SAVE FUNCTION DATA 


'^AA 


AA C .AAA 
vvJv*H 










XCHG 




J DATA POINTER TO 'H»L' 




AASAAS 


A AO 


•OAS 


AAA 




SHLB 


AHiAI 


J STORE FOR LATER USE BY COHHON CODE 


7 c «ft? 


AAC.ACCA 
vvvivjy 










XCHG 




i RESTORE "DfE" 




AASASI 




I/O 


ATI 




CALL 


ABATP 


ittttt I/O WRT 103»105»107»111»113 tmt 






















AASASA 


17A 
i/v 








HOW 


A-B 


>GET FUNCTION 


05AA 
.QUO 


AA^A 6 ^ 


707 


1 1 7 




EH.CRMJ OUT 


A0003 


mm i/o wrt H3/4 tmt 


05 A7 

2jU/ 


















2508 










fNQW SET "C0H/ADR" CYCLE 


2509 


005057 


076 


004 






MVI 


Af"004 


5BIT TO SET COH/ADR CYC 


2510 


005061 


323 


115 






OUT 


BUSARB 


mm i/o wrt us/4 tmt 


2511 


















2512 










I CHECK IF DOING EI OR EH 


2513 


005063 


072 


163 


040 




LDA 


EIFLAG 


iGET THE EI FLAG 


2514 


005066 


247 








ANA 


A 


5SET C0DES» IF »NE« Or THEN IT IS AN EI CODE 


2515 


005067 


302 


074 


012 




JNZ 


EHCONT 


5 AND IF WAS Elf 60 DO IT 
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251/ 










fQTHERsISE JUST 


FALL THRU AND USE THE DM CODES 


2518 


A ACT A"J<"i 

005072 


076 


343 




HMI 


A? 0343 


f BITS FOR CHECK NXn i CONSOLE REG t T ENB FOR CQn/ABR 


2519 














y LATCH DATA SENT ? R CLK DISABLE 


2520 


005074 


323 


210 




EHC0NT5 OUl 


BUSCTL 


f%%%%% 1/0 wRT 210/343 ***** 


2521 
















Otroo 


AACA*?/ 


LSI 






VDA 


A 
H 




0507 


AA5A77 




1 £7 

loo 


AAA 


CTA 


FTP! &R 


sri rap pi an ny tmp u&y rut 






























ARBRESP 


;****« i/o rd 30i ***** 


(15 


005102 


315 


245 


032 


CALL 


BUSRESP 


» DO A CALL TO EXECUTE THIS CODE 


(15 


005105 


020 






.BYTE 


ARBRESP 


5BITS TO BE CHECKED 




AA51 A£ 


7AO 
OV£ 


AOO 


A7£ 


JNZ 


N0ARB 


5 IF GET NO "BUS REQS ARB FAILED SO ABORT 


Or/)"? 


















AA C .1 1 1 
VVJllI 








BUSRESP 


N0NXMEH 


****** 1/0 RD 301 ***** 


11) 


A A CI 1 1 

OvjIII 




oar 


A70 


CALL 


BUSRESP 


;do a call to execute this code 




005114 


i AA 

ICQ 






♦BYTE 


N0NXMEM 


5 BITS TO BE CHECKED 


2529 


005115 


302 


036 


036 


JNZ 


NIX0M 


IJUMP IF N0N-EXISTANT MEM FLAG IS SET 


2530 
2531 










»N0W MUST WAIT FOR 'DATA ACKNOWLEDGE" FR0H MEMORY 


2532 


005120 








BUSRESP 


BATACK 


it**** 1/0 RD 301 ***** 


(1) 


005120 


315 


245 


032 


CALL 


BUSRESP 5 DO A CALL TO EXECUTE THIS CODE 


(1) 


005123 


001 






♦BYTE 


BATACK 


iBITS TO BE CHECKED 


2533 


005124 


312 


010 


036 


JZ 


N0ACK 


5JMP IF NO 'DATA ACK* (BUS HAS 15 MIC. SEC TO RESP) 
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CMDS.M80 *** "EH* CHD ttt 













? HERE IF 8 DATA ACKNOULEDBE 8 RECEIVED** GET RESULTS S PRINT 




AA^1 "57 


A*>1 


A10 


AAA 


i YT 
Lax 


BfEHBUF IPLACE TO PUT RECEIVED DATA 




UV313j: 


74 £ 


i A1 

lul 


A77 

03,3 


L-ftLL 




£***** T /ft Dfl A.1. r i-7.1A7 ***** 


2j38 
















253? 


AAC< 7C 

005135 


OCT 

257 






VDA 


A 

A 


rSET ACCUn *E8» FOR R CLK ENABLE 


2540 


005136 


TO? 

323 


210 




ni it 


DUbl 1 L 


****** T /n UDT 01 A /A ***** 

fipi? i/u »hi 2IU/0 ***** 


2v?41 
















2j42 


AAC-i A A 

005140 


AT"* 

0/2 


1 OA 

120 


AAA 

040 




NUrni 


?bt! ! nt rhlNi rLHi? 


2j43 


Uuj143 


247 






RFiH 


A 

ft 


tor? nhwT^TTTny rnricc- 


IK A A 

*Q44 


aa=;i A A 
Ww 144 


7AA 










ihNU DUN! sftblt lint ir Nut rhlNliNb 




















AAc-j Atr 
UUdl^J 




OA^ 


AAA 


1 HI 1'i 


ML AT 


JuLt rUlRlLil !U nCn Hi'lM JUOI ilAHnXnLl> 




AA^I^A 


11 c . 


T^T 


A1A 






« PR TNT TT 




















AAC f1 c l"? 








PSL&SH 




■PPTMT 1 /* 




vUJi-JO 


117 

•all 






HO I 


1 


ISO PRINT CHAR IN TRAILING BYTE 


\i) 


AA51 CCA 


A 5"? 






.BYTE 


SLASH 


iCHAR TO PRINT 


2550 


005155 


315 


347 


030 


CALL 


P36. 


j AND PRINT IT 


2551 


005160 








PCRLF 




» CR-LF 


(2) 


005160 


347 






RST 


4 




(2) 


005161 


002 






.BYTE 


2 




2552 


005162 








ENBCMD 




IALL BONE 


(1) 


005162 


311 






RET 




> RETURN TO CALLER 


2553 
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Zjjj 










2*jj6 










2557 










2558 


AAC4 If 

005163 


315 


Atrc 

055 


ATT 

033 


255? 


005166 


A4 "J 

017 


AAA 

040 




2560 


AAP4 "?A 

005170 


303 


A "71 

u32 


012 


2561 










2562 










2563 






















UUJi/3 


ASO 


A71 

vol 


AAA 

U4v 




AA51 "?£ 


A01 
Sill 


0A7 


Ai 




vUJZvi 


All 
vol 










100 






ZJG7 




AA7 
Una 






2j/U 


AAOAA 

005204 


126 






2571 


005205 


353 






2572 


005206 


351 






2573 










2574 


005207 


163 


012 




2575 


005211 


001 


013 




2576 


005213 


106 


013 




2577 


005215 


057 


016 





.SBTTL ttt "EN" CHB *tt 

5ACTUAL C0BE FOR "EN" CHB 

ENEHt CALL INC36 JABB 1 TO 36-BIT BUFFER 

,ABDR HEHAB 5 THIS IS THE BUFFER TO INCREMENT 
JMP EH1 SAND NO GO PROCESS JUST LIKE 'EH" CHB 



. SBTTL ttt 'EN' CNB *** 

5 EXAMINE NEXT HILL DO THE NEXT, SAME AS THE LAST 

ENCHBt LHLB ENEXT IGET INBEX FOR UHICH EXAMINE IS NEXT 



LXI 


BrENLST 


fGET PNTR TO DISPATCH LIST 


BAB 


B 


5 AND NOy ABB "WHICH' EXAHINE 


MOM 


E;H 


» GET LO ORDER PIECE 


INX 


H 


JUPBATE HEH PNTR 


MOV 


DfH 


5 GET HI ORDER PIECE 


XCHG 




{PUT THIS NEU ABBR INTO "HiL* 


PCHL 




5 AND TAKE THE DISPATCH 


♦ABBR 


ENEM 


J DISPATCH FOR EXAM MEM CHB 


♦ABBR 


ENEI 


» DISPATCH FOR EXAM I/O 


.ABBR 


ENEK 


» DISPATCH FOR EXAH KONSOL 


.ABBR 


ENEC 


i DISPATCH FOR EXAMINCRAH 
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2j/V 










♦SBTTL 


*** 'Di 


n* CMD *** 


2580 










fDEPOSIT HEH0RY ACTUAL C0HKAHD CODE 


2581 












tt * 8 Til 


N* CHD *** 


2582 


00^217 


3lj 


Aire 

05j 


A77 

033 




PAl 1 
LHLL 


INC36 


i INCREMENT MEH0RY ADDRESS 


2joo 


0U5222 


Ul/ 


AAA 
040 








HEHAD 


J HERE IS CURRENT MEMORY ADDRESS 


2584 


0Gv»224 










A&R1A 




fOTHERUISEt ASSEMBLE THE ARG 




UUD224 


04/ 










4 








A1 A 










8 




2joj 


U0j226 


A£7 
04/ 


AAA 








DHDAT 


} PLACE TO PUT ASSEMBLED DATA 


2jo6 


















2j87 


A AC 07 A 

00u2o0 


25/ 






DM15 


XRA 


A 


10 IS THE INDEX FOR MEM NEXT CHDS 


2588 


005231 


062 


033 


040 




CTA 
OIH 


DNEXT 


J SAVE SO 'NEXT" C0MHAND WILL KNOW WHAT TO DO 


258? 


















25¥0 


00j234 


A^H 
021 


01/ 


AAA 

040 




I YT 


D» HEHAD IPNTR TO SH10 HEH0RY ADDRESS 


25V 1 


















25 ? 2 


005237 


AT / 

076 


AA1 

002 




DrUNl * 


nvl 


A»02 


{BIT TO SAY 'WRITE FUNCTION' 


ZJio 


















2j?4 


Uvj241 


1 A "7 
10/ 








nuv 


B»A 


? SAME FUNCTION STATUS 






"ii c , 

OiJ 


I/O 


fill 




uHLL 


ADATP 


>***** I/O HRT 103fl05>107rlllfll3 ***** 


2J70 

«CO"7 
IJil 


0vj24j 


4 -JA 
1/0 








Mnu 

nuv 


A>B 


56ET FUNCTION DATA 


2j7Q 


00j246 




117 

iii 






UUi 


A0003 


;**»* 1/0 URT 113 ***** 


2-jVY 


















TZAA 

2600 


AACnCA 

00j250 


0/6 


AAA 

004 






mi 


A>04 


iBIT INTO ACCUM FOR "C0H/ABR CYCLE* 


2601 


00j2u2 


7*)7 

323 


11a 






OUT 


BUSARB 


>***»* 1/0 HRT 115/4 ***** 


2602 


















2603 


005254 


315 


136 


033 




CALL 


WDATT 


>****« I/O WRT 102»104»106»110.112 ***** 


2604 


005257 


A A"? 

047 


AAA 

040 






»ABBR 


DHDAT 


JPLACE TO GET DATA FOR DEPOSIT 


2605 


















2606 


005261 


076 


001 






HVI 


AfOl 


iBIT INTO ACCUH FOR 'DATA CYCLE' 


2607 


005263 


323 


114 






OUT 


DTARB 


!****« I/O HRT 114/1 ***** 


2608 


















2609 










j CHECK TO SEE IF DOING DI OR DH 


2610 


005265 


072 


164 


040 




LDA 


DIFLAG 


iGET THE FLAG 


2611 


005270 


247 








ANA 


A 


fSET THE CONDITION CODES 


2612 


005271 


302 


276 


012 




JNZ 


DHC0NT 


J IF ,NE. 0» THEN YOU GOT THE CODE FOR A DI 



VER 6,2 KS10 CONSOLE PROGRAH CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-HAY-7? 16J50 PAGE 3-81 
CMDS.M80 It* "DN" CMD tSt 













ifiTUFPUTCC Tat 1 TUPH TH Tin a TiU 


261j 


Quj2/4 


U/6 


7Z1 

362 




BnbU* nvi Hf 0362 *Mtb ruR CHhLI\ NXn ? CONSOLE KLQ ? T ENB rOR COn/ABK 


26 1 6 










* it r*iiTj pnrt TiATA r*VfM pi/i ATf*H TtATA f*r"i.tT rtftPMPiiTf* pai f*p r»Af"t 

? T ENB FOR DATA CYCLE (LATCH DATA SENT PREVENTS FALSE PAR 


2617 


005276 


323 


210 




DKC0NTS OUT BUSCTL ?*****I/0 WRT 210/362 ***** 


2618 












261? 


005300 


257 






v/f%A A * iM PATt Tlir J r.ni iw 

XRA A ? CLEAR THE ACCUH 


2620 


AACTfAl 


AiH 

062 


i LA 

164 


AAA 

040 


f^TA TiTr*! Af* * AJkiri PI PAI"i TUP PI Af* 

STA BIFLAb ?ANB CLEAR THE FLAG 


2621 






















L<H£& r CD APDP r CP i**+** T /fi DTi 7A-5 ***** 

bUbhtbr fihBhtbr ?***** 1/U KB 3U1 ***** 


11/ 


AAC7AA 


715 


**4j 


AT) 


PAH CHCDCCD iTiH A PAI i Tft rVCPHTr TUTC THFiC 

tRLL BUbhtbr ?UU ft LrLL IU LAtCUlt IHIb LUUt 


Mi 


UvJoU/ 


A^A 






PYTF APRPrGP JfcTTQ Tfi BF pUFPfc'FTi 




AA^ll A 


7A1 


AT2 


UQQ 


IM7 wn^pfi stf yn | wiq pen 1 - ape r&Tirri. qh asapt 

JUL rURRj? fir FtU DUO l\fc.U f Hi\D rHiLtLlf OU HBUru 














i.,Qi. J 










sir that nk*« rHPrk' rn& yny-ryTQT6MT hfhhpy 

fir iflnl WHO Uft? Unulm rUrS nun LAiOlnrti nCnUrS] 




UUJOio 








DiiCOiTOD kiHMVMrM i***** T /fi PR 7A1 ***** 

Bubhtbr NUNAnLn flw? 1/U KB 6\)l ***** 


(i) 


005313 


315 


245 


032 


CALL BUSRESP »H0 A CALL TO EXECUTE THIS CODE 


(15 


005316 


100 






♦BYTE N0HXMEM fBITS TO BE CHECKED 


2627 


005317 


302 


036 


036 


JN2 NIX0M 5IF FLAG SAYS NXM» THEN ME JUMP 


2628 












2629 










(ELSE ALL OK.,.. 


2630 


005322 








ENDCMB 


(1) 


005322 


311 






RET 5 RETURN TO CALLER 
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CMDS.M80 *« "DN* CHD Stt 



2632 










, SBTTL ttt 'DN' CHD *** 


2633 










J ROUTINE WILL DEPOSIT NEXT* JUST AS THE LAST 


2634 


005323 


052 


033 


040 


DNCnD. LHLlI 


DNEXT 


5GET CODE FOR HHICH DEPOSIT IS NEXT 


2635 


005326 


021 


337 


012 


LXI 


DfDNLST JPNTR TO DISPATCH LIST 


2636 
2637 


005331 


031 






DAD 


U 


*Ann future c&itb Tn uutpu tc urvT 
»ADD olvtS rNlh lu MH1LH la NtXi 


2638 


005332 


136 






ami 
nuv 


E»H 


5L0 ORDER PIECE TO REG 


2639 


005333 


043 






INX 


H 


> UPDATE MEM PNTR 


2640 


005334 


126 






MOV 


DiH 


SHI ORDER PIECE TO REG 


2641 


005335 


353 






XCHG 




iNQU THE DISPATCH GOES TO "HiL" 


2642 


005336 


351 






PCHL 




5 AND DISPATCH 


2643 
















2644 


005337 


217 


012 




BNLSTS .ADDR 


DNDH 


5 DISPATCH FOR DEP NEXT TO MEM 


2645 


005341 


007 


013 




♦ADDR 


DNDI 


5F0R DEPOSIT NEXT TO I/O 


2646 


005343 


137 


013 




.ADDR 


DNDK 


5F0R DEPOSIT NEXT TO KONSOLE 


2647 


005345 


071 


016 




.ADDR 


DNDC 


IFOR DEPOSIT NEXT CRAM 
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CMBS.M8G 


m *Ei" cmd m 








2649 










.SBTTL 


«** 'EI' CMD W 


2650 


005347 








EICMBt 


Di IX! 
KUN* * 




iTMCftAi rnMM&KJri TIT PPM DI lKJKlTMf2 

fiLLtUHL LUnnflnil ir try hurcNlnu 


(1) 


005347 


347 








DOT 

Kb! 






(1) 


005350 


006 








♦ BY It 


1 

6 




2651 


005351 


332 


357 


012 






til 


iCk*7D PAINT TT AT rkiTi ftf? Pf\UUA'tiTi 


2652 


005354 


315 


125 


013 




PAi 1 


s 7 run 


*ccTru hd tuc nrcTDrri 7/n Annproc 
frblLH Ur Inc. UtbiKfciJ 1/U HDimtob 


2653 


















2654 


005357 


076 


002 




EIU 


nvi 


A 


*Ti7cd pnrir cnD rvA^Tyr hetvt 
?iilbr lUitt rUK LAHniNi: NtXI** 


2655 


005361 


062 


031 


040 




CTA 
DIM 


CUCVT 


* jrj i CYAJaTMC MTVT Tfl PfHtf£T UUQV 

ficLL LAftnlKt Nlai iU wurit ntht 


2656 


















2657 


005364 


021 


024 


040 




{ VT 

Lai 


fi, tnAri 

U? luflU 


} nfL Utio rnlK IU RUim PUrrLK 


2658 


















2659 


005367 


076 


143 






MVI 


A»"0143 


J SPECIAL C0BE FOR WHEN DOING Bl 


2660 


005371 


062 


163 


040 




STA 


EIFLAG 


iPASS IT TO ROUTINE 


2661 


















2662 


005374 


076 


014 






MVI 


A»"014 


JBITS FOR "1/0 FUNC % "READ FUNC 


2663 


005376 


303 


043 


012 




JMP 


EN2NB 


i JUMP TO COMMON C0BE 


2664 


















2665 


















2666 










i EXAMINE I/O ENTRY PNT FOR EXAMINE NEXT SITUATION 


2667 


005401 


315 


040 


013 


ENEH 


CALL 


I0.INC 


rOO INCREMENT 1/0 ABBRESS TWICE 


2668 


005404 


303 


357 


012 




JMP 


Ell 


iTHEN ON TO COMMON CODE 
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cmds.M80 m •nr chb m 



2670 










♦3BTTL 


*** "DP CMD W 


2671 










♦SBTTL 




r CMD ttt 


2672 


005407 


315 


040 


013 


DNDIJ 


lALL 


10. INC 


f GO INCREHENT THE 1/0 ADDRESS TMICE 


2673 


005412 








DICHDJ 


ARG36 




?0THERUISE so assehble the ars 


(D 


005412 


347 








RST 


4 




(1) 


0054 IS 


010 








♦ BYTE 


8 




2674 


AAC i4 i 

005414 


A A"? 

047 


AAA 

040 






♦ADDR 


TtUTtAT 


?AND STORE IT HERE 


26/5 


















^l^l 

it tQ 




A7Z 


AAO 
Wl 




mi* 


HUT 
rivi 


A. AO 

mvl 


?bti WUrui IHHl bfilb itfcr NlaI will dl LU 


lOf 1 


AASAOA 


AiO 

vol 


A77 


AAA 
U4U 




QTa 
01 H 


Imt a ! 




^6/b 


















0/70 

Ion 


A AC 407 


AOI 
021 


024 


AAA 
040 




LXI 


LblUfiU 


irnih ill HitDKtbo limn lu Ubt 




















lool 


VUj4£Q 


A7£ 


1 LIS 
16v 






MVI 


A . "Hi LIS 
H? U16U 


*orT rnric rnc« nor bv ft? rriMMAkiri 
ibtl LUtft rUh Ubt d! 111 bunrlHNu 


lobl 


AAC AliS 


AiO 


i LA 
164 


AAA 
040 




STA 


TiTI""! Af* 

BIFLAu 


»AND PASS IT TO ROUTINE 


Zooo 


















*~i i ft h 

2684 


AAC ATT 

005433 


A"} / 

076 


a< n 

012 






MMI 


Ay "0012 


JBITS TO SAY "1/0 FUNC % "WRITE FUNC 


2685 


005435 


303 


241 


012 




JMP 


DN2ND 


JAND JUMP TO COMMON CODE 


2686 


















2687 


005440 


315 


055 


033 


I0.INCJ CALL 


INC36 


JN0H INCREMENT 1/0 ADDRESS 


2688 


005443 


024 


040 






.ADDR 


I0AD 


JITS RIGHT HERE 


268? 


005445 


315 


055 


033 




CALL 


INC36 


»N0H INCREMENT 1/0 ADDRESS 


2690 


005450 


024 


040 






.ADDR 


I0AD 


{ITS RIGHT HERE 


2691 


005452 


311 








RET 




I AND BACK 
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CMDS.M80 *** 'EK' CMD «* 



2693 










.SBTTL 


ttt 'EK' CMB ttt 


26 7 4 










5R0UTINE EXAMINES 8080 LOCATIONS 


2695 


A AC* AC*? 

005453 


inn 

332 


A in 

062 


A1 7 

013 


ekchd; 


JC 


EKl 


5 IF NOTf NO ARG TO BE ASSEMBLES 


2676 


















26?/ 










.OTHERWISE* MUST ASSEMBLE ARG 


2698 


005456 














Sftfl RETT \L BTT AMU} Tfi £¥&Wtti£ 

full ut! 16 dII muh iU tAHnlrtt 


(1) 


A AC AC" / 

005456 


"7 A"7 

347 








Kb I 


A 

4 




(1) 


A AC ACT 

005457 


AA A 

004 








♦ DHL 


h 

4 




269? 


AAC k i A 

005460 


AA1 

002 


AAA 

040 










iAUri DIIT TMTn riiDBITUT AMID Bitnr£"£« 


2700 


















2/01 


AAC A /.*} 

00j462 


0/6 


AAA 

004 






HUT 
nVi 




iTHFiPY QAYC Ck' TQ &FYT 
?iFtL»t.A DniO tf\ ID PttA! 


2/02 


AAC J / A 

005464 


A / 1 

062 


031 


AAA 

040 




QTA 


CMCYT 


JORVt In Int. i\Hn 


2/03 


















2/04 


00j46/ 


AA1 

041 


AAO 

002 


A4A 

040 




LAl 


n ? uuvni' 




2/0vJ 


AAC* -in 

00j4/2 


71 C 

31j 


71 7 
31/ 


A7A 

030 




CALL 


P16 


J AND PRINT IT AS IS 


2/06 


















2/0/ 


AAC A"5C 
00D4/J 










PSLASH 




JNOy A V 


(2/ 


0UD4/,J 


31/ 








RST 


1 


iGO PRINT CHAR IN TRAILING BYTE 




AA c tA7A 


A c .7 
UJ/ 








•BYTE 


SLASH 


5 CHAR TO PRINT 


i/VQ 


















r >7AQ 

£f\J7 


VUtJ-r// 




Aft'"' 


AAA 




LHLB 


C80AD 


5GET ABBR JUST PRINTED 


'HI ft 


aacca-} 


17/ 
l/o 








MOM 


AiM 


!PASS ARG TO PRINT IN THE ACCOM 


971 1 


AACCA7 


7A7 

303 


A71 

vol 


A17 
01/ 




JMP 


P8CRLF 


» AND PRINT DATA PLUS CRLFf FOR FREE 


2/12 


















2713 


















2714 


















2715 










, SBTTL 


ttt 'EN' CMD ttt 


2716 


005506 


052 


002 


040 


ENEKJ 


LHLB 


C80AB 


» GET CURRENT 8080 ADDRESS 


2717 


005511 


043 








INX 


H 


» UPDATE 


2718 


005512 


042 


002 


040 




SHLB 


C80AB 


JPUT IT BACK 


2719 


005515 


303 


062 


013 




JMP 


EKl 


5 COMMON CODE 
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2/21 








♦SBTTL 


ttt , LA" CHB ttt 


2/22 


AACCIA 

005520 






LhCHD* 






2723 


005520 








ARG36 


» OTHERWISE i GET AR6 & PUT IN 3e-BIT BUFFER 


(1) 


005520 


347 






RST 4 






005521 


A -4 A 

010 






.BYTE 8 




2724 


005522 


A* "J 

017 


AAA 

040 




.ADDR HEHAB 


{PLACE TO PUT DATA 


2/25 














2/2o 


005524 








ENBCHB 


5 AND BONE 


(1) 


005524 


311 






RET 


{RETURN TO CALLER 


272/ 














2728 














272? 








PTiTT! 

.SBTTL 


ttt 'LI' CHD ttt 


2730 


AACC«"JC 

005j25 






LIlnD. 


ARG36 


IGET ARG AND PUT INTO A TEMP BUFFER 


/ 1 \ 


AACC^C 


1A1 
6*1/ 






RST 4 




11) 


00 j326 


A1 A 
01U 






.BYTE 8 




2/61 


AAercj7 

uuuj2/ 


AO A 


AAA 




.ADDR I0AD 


{THIS TEHP BUFFER 


2732 














2/33 


005j31 








ENDCMB 


{AND DONE 


(1) 


WJj31 


311 






RET 


{RETURN TO CALLER 


2734 














2735 








.SBTTL 


ttt "LK" CHD ttt 


2736 








{ROUTINE SETS CURRENT 8C 


)80 ADDRESS INTO RAM.. 


2737 








5IF USER TRIES TO DEPOSIT PROM. TOO BAD. HE SHOULD- KNOW BETTER 


2738 


005532 






LKCMBt 


ARG16 


{IF OKrGO ASSEHBLE 16 BIT ARG 


(1) 


005532 


347 






RST 4 




(1) 


005533 


004 






.BYTE 4 




2739 


005534 


002 


040 




.ADDR C80AB 


{THIS IS A GOOD PLACE TO KEEP IT 


2740 














2741 


005536 








ENDCHB 


{AND END 


CD 


005536 


311 






RET 


{RETURN TO CALLER 
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2/43 










♦ SBTTL m *W CHD tit 


1"9 A A 

2744 


005537 


AC* 

052 


002 


AAA 

040 


DNDKl LHLD 


C80AD 5 GET 8080 ADDRESS 


2745 


005542 


043 






INX 


H > INCREMENT BY 1 


2746 


005543 


042 


002 


040 


SHLD 


C80AD JPUT IT BACK 


2747 










j FALL INTO THE *DK* C0HHANB 


2748 














274V 










, SBTTL ttt "W 


;* CHD ttt 


2750 










JC0DE TO DEPOSIT INTO 8080 RAM,, IF U TRY TO DEPOSIT PROM 


2751 










5ITS YOUR 0UN FAULT 


^752 


00jj46 


31j 


OA A 

244 


A7A 
030 


DKCHD5 CALL 


ARG16, J0K» NOU GO ASSEHBLE 16 BITS OF DATA 
















£/J*f 


AAtrrc-} 
VVJJJi 


if J 






H0V 


A»L »6ET DATA FROH LOC 


2/Dj 


AArCCi 

Q05jj2 


AC* 

052 


002 


AAA 
040 


LHLD 


C80AD f AND CURRENT ADDRESS TO , H»L' 


2756 


005jjj 


167 






H0V 


M»A J«RITE THE 8-BIT DATA 


2757 


005556 


A"? / 

076 


AA A 

004 




HVI 


A»04 5 GET CODE THAT SAYS EXAMINE NEXT SHOULD 


2758 


AACC / A 

005560 


A/ 

062 


ATT 

033 


AAA 

040 


STA 


DNEXT 5 AND SAVE IN RAH 


275? 














2760 


005563 








ENDCHD 


J ALL DONE 


(i) 


005563 


311 






RET 


5 RETURN TO CALLER 


2/61 














2/62 










.SBTTL ttt "CP" CMD ttt 


2763 










J COMMAND TO SINGLE PULSE THE SM10 CPU CLK 


2764 


005564 


332 


***A A 

204 


013 


CPCHDt JC 


CP! »IF NO ARGi ONLY GIVE SINGLE CPU CLK 


2765 














2766 


005567 


315 


244 


030 


CALL 


ARG16, I ELSE GET ARG 


2767 














2768 










»N0y GIVE NUMBER OF CLKS REQUESTED 


2769 


005572 


175 






CPMLTS MOM 


AfL fLQ ORDER PIECE INTO ACCUM 


2770 


005573 


264 






ORA 


H f ADD THE HI ORDER PIECE 


2771 


005574 


310 






RZ 


J ALL DONE IF DOUN TO ZERO 


2772 














2773 


005575 


315 


204 


A4 "7 

013 


CALL 


CP1 » OTHERWISE » GIVE CLOCK 


2774 


AAIT / AA 

005600 


AC7 

053 






DCX 


H JDECREHENT 


2775 


005601 


303 


172 


013 


JMP 


CPMLT » AND CONTINUE TILL DONE ALL 


2776 














277? 


005604 


076 


010 




CPU HVI 


A i "0010 J SET BIT FOR "SS MODE" 


2778 


005606 


323 


204 




OUT 


CRHCTL itttttl/O HRT 204/010 ttttt 


2779 


005610 


076 


002 




HVI 


Ai2 ? SET BIT FOR "SINGLE CLK' 


2780 


005612 


323 


206 




OUT 


CLKCTL mm I/O HRT 206/2 ttttt 


2781 


005614 








ENDCHD 


iBONE,, 


(1) 


005614 


311 






RET 


{RETURN TO CALLER 
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CMBS.H80 


*ti *ER" CMD ttt 






2783 










.SBTTL *«* "ER* CMD ttt 


2784 










f COMMAND TO EXAMINE ONE OF THE 8080 INTERNAL REGISTER? AND DISPLAY 


2785 










f THE CONTENTS OF THAT REGISTER, 


2786 


005615 


332 


227 


013 


ERCMDJ JC 


ERI 


iTC Mn ADf:. Eft J ICC TUC HJdC Af DCAfiY TKI TUC DA& 

fir NU RKb? btl Ubt frit tint HLKtHiJT IN Int Kfln 


2787 
















2788 


005620 


315 


244 


030 


CALL 


ARG16, 


*Cl DC. PTPfc' HP TUC ADR TUAT UAC TVPCff 

jLLbL? riU\ Ur int Rhb 1 nfl i who fTrtU 


2789 
















2790 










J FALL TO HERE IF ARB OK 




2791 


005623 


175 






MOM 


AiL 


*PCT APTIIAl ADf 1 TXiTft TUC AfTHiS 

fbti hIIUhl Rhb IN 10 Int Hblun 


2792 


005624 


062 


123 


040 


STA 


ERADDR 


iun i . bfct cauf tutc tutmr iu tut dam 
jwtLL? Dtbi DHvt Inib IrUNb in Int KHn 


2793 


005627 


072 


123 


040 


ERi: LDA 


ERADDR 


;rnMMriK} type* rnriC a un-HP tit adr uaq TYPrri 


2794 
















2795 


005632 


365 






PUSH 


psy 


!N0y SAVE ACCUH PLEASE 


2796 


005633 


315 


304 


030 


CALL 


P8BITA 


? PRINT NAME OF THE 8080 REG THAT IS BEING EXAMINED 


2797 


005636 








PSLASH 




j AND SEPARATE FROM ITS CONTENTS WITH A SLASH 


(2) 


005636 


317 






RST 


1 


? GO PRINT CHAR IN TRAILING BYTE 


(25 


005637 


057 






.BYTE 


SLASH 


iCHAR TO PRINT 


2798 
















2799 


005640 


361 






POP 


PSH 


} RESTORE ACCUH PLEASE 


2800 


005641 


315 


267 


013 


CALL 


ER,UTL 


lEXECUTE THE INSTR PAIR FROM THE RAM SPACE 


2801 
















2802 










J BACK HERE AND THE DATA IS IN THE ACCOM 


2803 


005644 


315 


031 


017 


CALL 


P8CRLF 


» PRINT THE RESULTS 


2804 


005647 


311 






RET 




? AND DONE 
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2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 



» ROUTINE TO EXECUTE 



'IN' OR 'OUT' FROM THE 8080 RAM SPACE 



005650 
005653 
005654 
005656 
005661 
005662 
005665 
005666 



005667 
005670 
005671 

005673 
005676 
00567? 



042 070 040 
365 

076 311 
062 072 040 
361 

315 070 040 

057 

311 



345 
147 

056 333 

315 250 013 

341 

311 



RAMXCTt SHLB ER.LOC »THE * IN/OUT ' AND THE REG NUMBER INTO RAH SPACE 

PUSH PSU » SAME ACCUM t IN CASE ROUTINE IS AN 'OUT' 

HVI Af .RET iA "RETURN" INTO ACCUM 

STA ER.LOC+2 i AND THEN THE RETURN GETS PUT INTO RAM SPACE 

POP PSU JRESTORE ACCUM » ANYWAY 

CALL ER.LOC $60 EXECUTE THE RAM LOC 

CMA iFIX HARDWARE INVERSION 

RET .BACK TO CALLER 

{ROUTINE ER.UTL.. DOES AN EXAMINE REGISTER. INTERNAL TYPE FORMAT. 

iNO PRINTING? JUST THE EXAMINE 

J PASS DESIRED I/O RES ADDRESS IN ACCUM. 

} ACCUM GETS THE RESULTS OF THE READ, 

ER.UTLt PUSH H 5 SAVE HiL PAIR 

MOV H»A ?NOU> THE NUMBER THAT WAS TYPED IS PUT INTO HI HALF 

HVI L».IN I AND AN "IN" INSTR GOES LO HALF 

CALL RAMXCT iNOW ACTUALLY EXECUTE THE CODE TO DO THE READ 
POP H iFIX H»L 
RET iOUT 
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2828 
2829 
2830 

2831 005700 315 244 030 
2832 

2833 005703 175 

2834 005704 062 123 040 

2835 005707 311 
2836 

2837 
2838 
2839 

2840 005710 

(1) 005710 347 
(1? 005711 004 

2841 005712 000 040 
2842 

2843 005714 056 323 

2844 005716 072 123 040 

2845 005721 147 

2846 005722 072 000 040 
2847 

2848 005725 315 250 013 

2849 005730 311 



.SBTTL %%% "LR" CMD ttt 

fCOHHANB TO SET INTO THE 8080 RAM? THE I/O REGISTER TO BE EITHER 
} DEPOSITED OR EXAMINED 

LRCMD*. CALL ARG16, 5FETCH IN THE NUMBER TYPED 



MOV AjL I DESIRED REG TO ACCUH 
STA ERADDR JPUT IN 8080 RAM 
RET »AND OUT 



.SBTTL ttt 'BR" CMD ttt 

j COMMAND TO DEPOSIT A NUMBER INTO THE LAST SPECIFIED 8080 I/O REG. 
DRCMDi ARG16 

RST 4 

.BYTE 4 

.ADDR T80DT ? TAKE AR6 AND PUT INTO RAH SPACE 

MVI L».OUT J'L" GETS THE OPERATION TYPE WE WILL PERFORM 

LDA ERADDR f FETCH UP THE CURRENTLY SELECTED I/O REG 

MOV H»A ? AND PUT IT INTO THE "H" 

LDA T80DT fNOB THE DATA TO BE WRITTEN GOES TO THE ACCUM 

CALL RAMXCT j PERFORM THE OPERATION 
RET 5THATS ALL 
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CMDS.M80 ttt 'LC» CMD *** 



2851 
2852 



♦ SBTTL ttt 'LC' CHD *tt 

I COMMAND TO LOAD THE 8080 RAH CURRENT CRAM ADDRESS 



2853 


005731 








LCCHBi ARG16 




J0K> ASSEMBLE THE 16 BITS 


(1) 


005731 


347 






RST 


4 




(15 


005732 


004 






.BYTE 


4 ' 




2854 


005733 


004 


040 




.ADDR 


CRMAD 


J TEMP PLACE TO KEEP BITS 


2855 


005735 








ENDCMD 




f DONE.. 


(i) 


005735 


311 






RET 




J RETURN TO CALLER 


2856 
















2857 










.SBTTL *tt "CE* CMD ttt 


2858 










* COMMAND TO SET CACHE ENABLE ON THE CSL BOARD 


285? 










J OR PERHAPS CLR CACHE ENABLE IF DESIRED 


£06U 
















zool 




770 


717 

36/ 


Ai 7 


CECHB5 JC 


CED1S 


J IF NO ARGi DISPLAY "CACHE ENABLE' 


286*! 
















2863 


005741 


315 


244 


ATA 

030 


CALL 


ARG16. 


5 MUST ASSEMBLE ARG IF FALL THRU 


2864 
















2865 


005744 


175 






MOM 


AiL 


J ARB TO ACCUM 


2866 


005745 


027 






RAL 




JBIT TO 1 


2867 


005746 


027 






RAL 




JBIT TO 2 


2868 


005747 


027 






RAL 




!BIT TO 3 


2869 


005750 


346 


010 




ANI 


"010 


J OFF ALL BITS BUT THE CACHE BIT 


2870 


005752 


107 






MOV 


BiA 


J SAME RESULT IN 'B* FOR A LITTLE klHILE 


2871 


005753 


072 


354 


040 


LDA 


PARBT 


JGET CURRENT PARITY BIT STATUS 


2872 


005756 


346 


367 




ANI 


"0367 


JOFF THE CACHE BIT 



2873 
2874 
2875 



J HERE IS SOME COMMON CODE? USEFUL BY ROUTINES WHICH 
i THE DATA IN THE PARBT LOCATION 



JST ADJUST 



2876 


005760 


260 






ENACOMS ORA 


B 


J ADD NEU DATA TO DEFAULTED * PARBT* 


2877 


005761 


062 


354 


040 


KS.PARS STA 


PARBT 


JNQH SAVE THE NEU DEFAULT 


2878 


005764 


323 


100 




OUT 


RESET 


mttt I/O WRT 100/STUFF ttttt 


2879 


005766 








ENDCMD 




J AND ALL DONE 


(1) 


005766 


311 






RET 




! RETURN TO CALLER 


2880 
















2881 










iCODE ENTERED WHEN HE WANT TO DISPLAY THE CACHE ENABLE STATUS 


2882 


005767 


072 


354 


040 


CEDISl LDA 


PARBT 


JGET CURRENT STATUS 


2883 


005772 


346 


010 




ANI 


"010 


rIS THE CACHE BIT SET?? 


2884 


005774 


302 


003 


014 


CH00SE5 JNZ 


PNT.ON 


J HERE IF YES 


2885 


005777 








PLINE 


OFFHSG 


JOFF MESSAGE DEPENDING THINGS 


(1) 


005777 


337 






RST 


3 


! PRINT LINE OF CHARS 


(1) 


006000 


154 


037 




.ADDR 


OFFHSG 


I BUFF TO PRINT 


2886 


006002 


311 






RET 






2887 


006003 








PUT. ON 5 PCHAR 


'0 


SPRINTING "ON" A CHAR AT A TIME SAVES 1 BYTE 


(15 


006003 


317 






RST 


1 


J GO PRINT CHAR IN TRAILING BYTE 


(1) 


006004 


117 






'.BYTE 


'0 


J CHAR TO PRINT 


2888 


006005 








PCHAR 


'N 


5 OVER PRINTING IT AS A STRING. .SPACE IS A LITTLE 


(1) 


006005 


317 






RST 


1 


;go PRINT CHAR IN TRAILING BYTE 


(1) 


006006 


116 






.BYTE 


'N 


JCHAR TO PRINT 


2889 


006007 








PCRLF 






(2) 


006007 


347 






RST 


4 




(2) 


006010 


002 






.BYTE 


2 




2890 


006011 


311 






RET 







2891 
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CMDS.M80 ttt "TE" CMB ttt 



OOQ7 










.SBTTL *** 'TE' CMB ttt 


2o74 
nnnc 










{CONSOLE COMMAND TO ENABLE OR DISABLE THE 1 MSEC CLOCK 


28?j 
28?6 


A A. / A4n 

006012 


332 


A"? / 

036 


A4 k 

014 


TECMDJ JC 


TEDIS 


{IF NO ARG> DISPLAY CURRENT STATE 


OOOO 
<.07/ 
















OOOO 
£070 


AAA AIR 


01J 


OAA 


A7A 
UoU 


CALL 


ARG16, 


jOTHERDISEj GO FETCH THE AR6 


£.0/7 
















OOAA 


AAAAOA 


17 C i 






MOM 


AjL 


{GET INFO JUST TYPED 


00 A 1 


AA4A01 


AO? 






RAL 




{BIT TO 1 


OOAO 


AAAAOO 

VVOV££ 


A07 
V£/ 






RAL 




{BIT TO 2 


O0A7. 


AAAA07 


7.AA 


AAA 




ANI 


"04 


{OFF ALL BUT THE TIME BIT 


OOAA 


AAAA05 


1 A7 
10/ 






MOV 


B»A 


{SAME STUFF IN B 


£7\}0 


AAAAOA 
UOoO£0 


A70 
0/£ 


7RA 

OJH 


AAA 
040 


LDA 


PARBT 


{GET CURRENT DEFAULT 


OOA/ 
£7V0 


AAAA71 

OOovol 


7AA 


777 
O/O 




ANI 


"0373 


{OFF THE 1 MSEC CLOCK SIGNAL 


£70/ 
















OOAQ 


AAZA77 

OOovoo 


7A7 

oOo 


7£A 

ooO 


A1 7 

Olo 


JMP 


ENACOM 


{60 DO COMMON CODE 


OOAQ 
Z7V7 
















001 A 

£?Iv 










JTHIS CODE ENTERED WHEN HE ONLY HANT TO DISPLAY CURRENT STATE OF 1 MSEC CLOCK 


001 1 
£711 


AAAA7A 


A70 
v/£ 


7RA 
OJl 


AAA 


TEBISi LDA 


PARBT 


iUE NEED TO REPORT STATE,, GET DEFAULT 


£7 Id. 


A A AAA 1 


7AA 

ono 


AAA 




ANI 


"04 


J IS THE BIT SET?? 


O01 1 


AAAAA7 


7A7 


77A 
O/t 


A17 
Uio 


JMP 


CHOOSE 


{GO TO A COMMON PLACE THAT CHOOSES 'YES' OR "NO* 


001 A 
£71*1 
















OQ1 5 










.SBTTL ttt 'SC CMD ttt 


•101 £ 










{CODE TO TURN OFF OR 0N< 


r THE ABILITY TO RECOVER FROM SOFT CRAM ERRORS 


0017 
£7i/ 










{FLAG AT Or MEANS TRY AND RECOVER* THEREFORE ITS THE DEFAULT ON 


001 

£710 










{MACHINE PQUER ON,,, 




0010 
£717 


AAAAAA 


770 


A7A 


A1 A 


SCCHDt JC 


SCDIS 


{IF NO ARC TYPED » GO DISPLY STATE OF THE THING 


OOOA 
















O001 


AAZAR1 


71 R 
OiJ 


OM 
£13 


A7A 
UoU 


CALL 


ARG16. 


{ELSE GO GATHER UUP AN ARGUMENT 


0000 


AAIARA 
U06Uj4 


1 7R 
1/j 








A»L 


{ARG GOES INTO ACCUM 


0007 
£7£0 


AAZACC 
VUGvJJ 


0A7 






ANA 


A 


{SET 8080 FLAGS 


oooa 


AAAARA 


710 
Oi£ 


AAA 
UOO 


A1 A 


JZ 


SCTOFF 


{IF ZERO r TURN OFF SC SOFT CRAM RECOVERY 


0005 
£7£J 
















ooox 

£7£0 










{FALL THRU IF TURNING 0) 


i SCE 


£7 £7 


006061 


2j/ 






XRA 


A 


{ZERO ACCUM 


oooo 

£7£0 


AAIA/.0 

U060o£ 


AZO 

Ooi 


70Z 
0£0 


AAO 
04£ 


STA 


SCOFF 


{SO THAT «E CAN SET THE APPROPRIATE FLAG 


oooo 

£7£7 


AAAAAR 








ENDCMD 




{THAT'S IT 


1 1 * 


AAAAAR 
vvOvuJ 


71 1 
OIL 






RET 




{RETURN TO CALLER 


007A 
£7*50 


006066 


A7Z 
0/6 


777 

Of I 




sctoff: kvi 


A»-l 


{KANT TO TURN OFF SCE» NEED -1 TO DO IT 


0071 
£7ol 


AAAA7A 
0060/0 


AAO 

06£ 


70 Z 
0£Q 


AAO 

04£ 


STA 


SCOFF 


{ZAP 


2932 


006073 








ENDCMD 




{AND OUT 


(1) 


006073 


311 






RET 




{RETURN TO CALLER 


2933 
















2934 


006074 


072 


326 


042 


SCDIS J LDA 


SCOFF 


{GRAB THE FLAG 


2935 


006077 


057 






CMA 




{SINCE .EG. ONi \£ MUST INVERT FLAVOR OF FLAG 


2936 


006100 


247 






ANA 


A 


5 SET 8080 PROCESSOR FLAGS 


2937 


006101 


303 


374 


013 


JMP 


CHOOSE 


?AND GO PRINT THE RIGHT THING 



J 
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00*20 
d.707 










♦SBTTL tU 'TP CMD* %tt 


£740 










5 CONSOLE COMMAND TO ENABLE OR DISABLE THE TEN STYLE TRAPS 


2941 


006104 


332 


4 lit 

124 


014 


IrUlil, Jt 


Irilib ibu UlbrLfll lUhhtrll blHIt ir NUIruNb ilrtU 


2942 














2943 


A A / A A"? 

006107 


1 A C 

315 


244 


ATA 

030 


pai i 
LhLL 


flhblQi lUIHthwlbt » bu HobtflcLt ft nUncth Ifrtii IN 


nr. * a 

2944 














1fi*C 

2945 


006112 


175 






MOV 


AfL 5 GET INFO THAT UAS TYPED 


2946 


006113 


027 






RAL 


'BIT TO 1 


2947 


AA i A A k 

006114 


An 

027 






RAL 


51 TO 2 


£740 


uuoHj 


A/} 7 
02/ 






RAL 


12 TO 3 




006116 


02/ 






RAL 


}3 TO 4 


2950 


006117 


346 


020 




ANI 


"020 iOFF ALL BUT TRAP BIT 


2951 


006121 


303 


365 


021 


JHP 


TP. SET 'JUMP TO PLACE THAT SETS TRAPS* AND SAVES ] 


2952 














2953 










iCODE TO DISPLAY CURRENT STATE OF SIGNAL 


2954 


006124 


072 


355 


040 


TPBIS5 LDA 


TRAPEN JGET CURRENT STATE OF TRAPS BIT 


2955 


006127 


346 


020 




ANI 


"020 JSET CONDITION CODES 


2956 


006131 


303 


374 


013 


JMP 


CHOOSE JAND GO DO IT 
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2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 

2969 006134 

2970 006137 
2971 

2972 006140 

2973 006141 

2974 006142 

2975 006143 

2976 006146 
2977 

2978 
2979 
2980 
2981 

2982 006147 

2983 006152 

2984 006154 

2985 006157 

2986 006162 

2987 006165 

2988 006170 
2989 

2990 



315 265 033 
377 

053 
175 
264 

302 134 014 
311 



315 050 034 

076 041 

062 361 040 

062 Oil 042 

062 251 040 

315 376 035 

303 336 034 



ZH.SBTTL *** *LT' CMD ttt 

CONSOLE COMMAND TO TURN ON THE LIGHTS ON THE CONSOLE FRONT PANEL 

ZZZLTCMDi CLRB KLNKSU » FORCE A FIXING OF THE LIGHTS 

ZZZ MVI Ai7 (LOAD ACCUM yiTH A BIT FOR EACH OF THE 3 LIGHTS 

III OUT LIGHTS }*«** I/O URT 101/7 ***** 

ZZZ CALL LTDLY J LEAVE LIGHTS ON FOR ABOUT A SECOND 

ZZZ XRA A » CLEAR ACCUM 

III OUT LIGHTS ittttt I/O URT 101/0 ***** 

FALL INTO CODE THAT WAITS A WHILE WITH THE LIGHTS OFF 



%%%LTDLYt LXI H»300 5 DELAY ABOUT A 
LTLQ0P5 CALL DELAY, }G0 DO A LITTLE DELAY 
.BYTE -1 fMAX COUNT 



SECOND AND A HALF 



DCX 


H 


5 DOWN THE COUNT 


MOV 


AfL 


J GET PIECE OF THE COUNT 


ORA 


H 


J THROW IN THE REST OF THE COUNT 


JNZ 


LTLOOP 


CONTINUE WAITING 


RET 




f UNTIL ALL DONE 



CLEAR 



.SBTTL *** 'MM" CMD *** 

J COMMAND TO PUT THE 8080 INTO MANUFACTURING MODE, 

5 SETS THE STATE FOR THE KLINIK LINE THEN SENDS A COMMUNICATIONS 

iTO WHATEVER IS AT THE OTHER END OF THE KLINIK LINE 

MHCHD, CALL SETH4 JSET KLINIK LINE TO MODE 4 

MVI Af"041 »UE MUST ALWAYS RESET THE MESSAGE NUMBERS 
STA LSTMSG JTHIS IS THE 'RECEIVE' MESSAGE NUMBER 
STA ENVHNQ iAND THIS IS THE 'SEND* MESSAGE NUMBER 
STA MMFLG J SAY MANUFACTURING MODE HAS BEEN ENTERED 
CALL Z.TBUF ? CLEAR SOME COMMUNICATION DEC10 BUFFERS 
JMP DECEX2 ? CLEAR THE MAILING ENVELOPES 

5**USING JMP USES OTHER GUY'S RETURN TO RETURN 
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2992 
2993 

2994 006173 333 300 

2995 006175 346 004 

2996 006177 312 027 027 
2997 

2998 006202 076 001 

2999 006204 323 212 

3000 006206 315 061 017 

3001 006211 303 336 016 
3002 

3003 
3004 

3005 006214 315 255 032 

3006 006217 257 

3007 006220 323 204 

3008 006222 076 003 

3009 006224 323 206 

3010 006226 

(1) 006226 311 
3011 
3012 
3013 

3014 006227 315 271 032 

3015 006232 076 010 

3016 006234 323 204 

3017 006236 257 

3018 006237 323 206 

3019 006241 

(1) 006241 311 
3020 
3021 
3022 
3023 
3024 

3025 006242 315 244 030 
3026 

3027 006245 042 010 040 

3028 006250 

(1) 006250 311 



.SBTTL %%% *SI* CMC *** 

(COMMAND TO CAUSE SH10 TO EXECUTE A SINGLE INSTR. 

SICHD5 IN RUNFP J BEFORE CONTINUINGiMUST READ MACHINE STATE 

ANI 4 f IS THE RUN FLOP SET (IS IT ALREADY RUNNING??) (TRUE LO) 

JZ YSRUN (IF YES» GO PRINT A MESSAGE TO THAT EFFECT I ABORT CMB 



HVI AfOi .SET BIT FOR 'CONTINUE' 

out cpuctl mm i/o wrt 212/1 ***** 

CALL DNF » CHECK THAT INSTR FINISHED 

JMP PCCOM J AND GO TO TYPE OUT THE PC 



♦SBTTL *** "CS" CMD *** 

5 COMMAND TO START THE SM10 CPU CLK RUNNING 

CSCMDS CALL SETRN (SET CLK 'RUNNING* FLAG 

XRA A JCLR ACCUM TO CLR 'SS MODE" 

OUT CRMCTL $*«*** I/O WRT 204/0 ***** 

HVI Ai03 (SET BITS FOR 'CLK RUN' S 'SINGLE CLK* 

OUT CLKCTL (****« I/O WRT 206/3 ***** 

ENDCMD (DONE,, 

RET J RETURN TO CALLER 



.SBTTL *** 'CH* CMD *** 

{COMMAND TO HALT THE SM10 CPU CLK 

CHCMD5 CALL CLRRN J CLEAR CLK 'RUNNING' FLAG 
HVI A("Q010 JSET BIT FOR "SS MODE* 
OUT CRMCTL ****** I/O WRT 204/010 ***** 
XRA A JCLR BITS FOR "SINGLE CLK* i "CLK RUN' 
OUT CLKCTL »***«* I/O WRT 206/0 ***** 
ENDCMD iDONE,, 
RET 5RETURN TO CALLER 



.SBTTL *** "LF* CMD *** 

(COMMAND TO 'LOAD FUNCTION '..SPECIFIES WHICH DIAG FUNCTION WRITE 
5T0 DO ON THE NEXT *DF" COMMANDS 

LFCHDl CALL ARG16. (GO ASSEMBLE 16 BIT ARG(WE ONLY NEED 4 BITS) 

SHLD CRHFN (PERMANENT HOME FOR DATA 

ENDCMD (DONE. . 

RET (RETURN TO CALLER 
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3030 
3031 
3032 

3033 006251 

(1) 006251 347 

(1) 006252 006 
3034 

3035 006253 315 244 030 

3036 

3037 

3038 

3039 

3040 006256 345 

3041 006257 315 315 014 

3042 006262 341 
3043 

3044 006263 175 

3045 006264 323 103 

3046 006266 174 

3047 006267 323 105 
3048 

3049 006271 257 

3050 006272 323 115 
3051 

3052 006274 076 144 

3053 006276 323 210 
3054 

3055 006300 072 010 040 

3056 006303 323 205 
3057 

3053 
3059 
3060 
3061 

3062 006305 076 040 

3063 006307 323 204 

3064 006311 257 

3065 006312 323 204 

3066 006314 

(1) 006314 311 
3067 
3068 

3069 006315 052 004 040 



♦SBTTL *** "DF" CHD ttt 

i ROUTINE WRITES THE DATA TYPED USING THE DIAG FUNCTION 
PREVIOUSLY SPECIFIED BY LF COMMAND 
BFCMB! RUN,, SIS CPU RUNNING?? 

RST 4 

.BYTE 6 

CALL ARG16. 160 ASSEMBLE ARG 

5 NEXT ROUTINE DOES LOTS OF I/O WRTS TO SM10 CPU 

i ALL WHILE TRYING TO WRITE DIAGNOSTIC ADDRESS REG FOR CRAM 

J LOADING OR READING., 

PUSH H JSAVE DATA TO BE DEPOSITED 

CALL CRM. AD } WRITE THE CRAM ADDRESS 

POP H »6ET DATA TO BE DEPOSITED 

WFUNCJ MOV A»L 5 GET DATA FOR BITS 28-35 INTO ACCUM 

OUT A2835 ****** I/O WRT 103 ***** 

MOV A»H 5 GET DATA FOR BITS 20-27 

OUT A2027 ****** I/O WRT 105 ***** 

WFNC1J XRA A »CLR ACCUH 

OUT BUSARB 5***** I/O WRT 115/0 ***** 

MVI A*"0144 5BITS FOR 'CONS REQVT ENB FOR COM/ABRVCRA R CLK" 

OUT BUSCTL ****** I/O WRT 210/144 ***** 

LDA CRMFN 5 GET DIAG FUNCTION 

OUT DIAG ****** I/O WRT 205/FNC ***** 
*NOTE THAT "TRAP EN' WAS JUST ZAPPED* BUT IT IS ONLY USEFUL IF THE 
{MICRO-CODE IS RUNNING AND ANYTHING U DO TO GET THE MICRO-CODE RUNNING 
5 WILL RESTORE THE TRAP ENABLE., THIS KLUDGE SPEEDS UP MICRO-CODE LOAD 



MVI A»"040 JBIT FOR "CRAM WRT* 

OUT CRHCTL ****** I/O WRT 204/40 

XRA A JBIT TO CLR "CRAM WRT" 

OUT CRMCTL ****** I/O WRT 204/0 ***** 

ENDCMD > DONE,, 

RET * RETURN TO CALLER 

? SIMPLE LITTLE ROUTINE TO SAVE SOME SPACE,, USED IN SEVERAL PLACES 

CRM. AD 5 LHLD CRMAD J LOAD DIAG ADDR TO BE WRITTEN 
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3071 










J ROUTINE COUNTS 


ON DATA IN "HiL",. DESTROYS 'HiL".., 


3072 


006320 


076 


001 




CADUR5 HVI 


AiOl 


SBIT FOR CRAM RESET 


3073 


006322 


323 


204 




OUT 


CRMCTL 


mm i/o wrt 204/1 tmt 


3074 


006324 


257 






XRA 


A 


JCLR BIT TO CLR CRAM RESET 


3075 


006325 


323 


204 




OUT 


CRMCTL 


mm 1/0 WRT 204/0 ***** 


3076 
















3077 










>***»* 1/0 WRT 103il05fl07,lll f 113 ***** 


3078 


006327 


175 






nOv 


A i 


flu ORDER 8 BITS 10 HlCUn 


3079 


006330 


323 


4 AT 

103 






h2ooD 


icrT Ty UAC«riUAC«r ten 
f bL I in nHKDwHht Ktb 


3080 


006332 


1/4 






nUV 


a. u 


SI4T fiPfiFP A BTTQ Tfl APPiiki 
fni UKDlK H DiiO iU HLLUn 


3081 


AA /*7T"T 

006333 


323 


4 AC 

105 




HI IT 
UU! 




sqft tmth uADnuA&r pirn 


3082 
















3083 


AA / "T-TC 

006335 


257 






Al\H 


A 
H 


tpi p appiim 


3084 


006336 


323 


107 




ni it 

UU! 




SPf P fiTH£D U APIA! APIT PPftG 


3085 


006340 


323 


111 




OUT 


A0411 




3086 


006342 


323 


113 




OUT 


A0003 




3087 
















3088 


AA / *7 A k 

006344 


323 


4 4 ET 

115 




OUT 


BUSARB 


mm i/o urt 115/0 ***** 


3089 
















3090 


AA !"T A i 

00&346 


A "J / 

076 


4 h k 

144 




HVI 


Ai"0144 


fBITS FOR "CONS REGS 'T ENB FOR C0M/ABR" »*CRA R CLK' 


7A£H 

3091 


AA/ 7CA 


323 


Hi A 
210 




OUT 


BUSCTL 


mm I/O URT 210/144 ***** 


"ZAO/l 

3092 


0063j2 


0/6 


021 




HVI 


A»"021 


iBIT FOR "CRM ADDR LOAD" 


3093 


AA/ TC* 

006354 


717. 

323 


204 




OUT 


CRMCTL 


****** 1/0 URT 204/21 


"? Aft & 

3094 


AA / "IC / 

006356 


257 






XRA 


A 


5 BIT TO CLR CRAM ADDR LOAD 


3095 


006357 


7^7 

323 


204 




OUT 


CRMCTL 


mttt 1/0 URT 204/0 ***** 


"? An / 

3096 


AA 11 f 4 

006361 


"74 4 

311 






RET 




5 AND RETURN 


3097 
















3098 
















3099 










5R0UTINE TO READ A SINGLE DIAG FUNC U0RTH OF STUFF FROM 


3100 










fTHE CRA/CRH PROCESSOR BOARDS 


3101 


006362 


127 






RE ADC 5 MOM 


D-ft 


J SAVE DIAG FUNC FOR A SEC, 


3102 


006363 


072 


355 


040 


LDA 


TRAPEN 


5 GET CURRENT VALUE FOR TRAP ENABLES 


3103 


006366 


262 






0RA 


D 


5 MIX TOGETHER 


3104 


006367 


323 


205 




OUT 


DIAG 


?***»* 1/0 URT 205/FNC ***** 


T4 AC 

3105 


AA / TTJ4 

0063/1 


A*7 / 

076 


4 4 IT 

115 




HVI 


A»"0115 


5BITS "CONS REG VCR A T CLKVR CLK ENBVCRA R CLK" 


Ti A / 

3106 


AA / "717 

006373 


323 


*"i4 A 

210 




OUT 


BUSCTL 


mm 1/0 URT 210/115 ***** 


~?4 A"? 

3107 
















"J 4 AO 

3108 


0063/5 


77"? 

333 


AAA 

000 




IN 


D2835 


mm i/o rd o ***** 


"T4 Art 

3109 


AA / T"l"7 

006377 


AC"? 

057 






CMA 




JFIX INVERSION 


3110 


A A / AAA 

006400 


A / *\ 

062 


4 AA 

100 


AAA 

040 


STA 


TMPB2 


.SAVE IN STANDARD BUFFER 


3111 
















3112 


006403 


333 


001 




IN 


D202? 


mm 1/0 RD 1 ***** 


3113 


006405 


057 






CMA 




JFIX INVERSION 


3114 


006406 


346 


017 




ANI 


"01? 


J KEEP ONLY 12-8 


3115 


006410 


062 


101 


040 


STA 


TMPB2+1 


ISAVE IN STANDARD BUFFER 


3116 
















3117 


006413 


257 






XRA 


A 


JCLR ACCUM 


3118 


006414 


323 


210 




OUT 


BUSCTL 


mm i/o urt 210/0 ***** 


3119 
















3120 


006416 


311 






RET 




j RETURN 
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7 4 11 

3122 










♦SBTTL %%% RC 


• m 




74 17 

3123 


A AZ A4 7 

006417 








KCCnlu RUN.. 




IIS CPU RUNNING?? 


(1) 


006417 


"7 AT 

347 






RST 


4 




/ 4 \ 
(1) 


006420 


AA / 

006 






.BYTE 


6 




7 4 1 A 

3124 
















74 1C 

3x25 


AA / A14 

006421 


1C7 

257 






RCINT} XRA 


A 


J CLEAR ACCUM FOR USE AS A COUNTER 


3126 


AA / A 11 

006422 


AA4 

001 


7 A 4 

341 


AAA 

040 


LXI 


BfCRMBF+"D31 »PNTR TO A BUFFER AREA TO SAVE THE "RC'S" AS READ 


3127 


006425 


137 






RCLPJ MOM 


E>A 


5 SAVE IN 'E' REG 


3128 


006426 


315 


362 


014 


CALL 


REABC 


J READ A DIAG FUNC FROM CRA/CRM BRD 


74 in 

3129 










fNOy PRINT WHAT WAS READ 


"74 "7A 

3130 


A A / A74 

006431 


072 


120 


AAA 

040 


LUn 


wnouT 
nUrwi 


SU£T UTi 1 MAk'C TT OlITrk'CD TC UflT ODTUTTMi; C'CCili TO 
jwt WILL nfiNt 11 uUitPitK ir nut rlurflimj KtoULla 


74 74 

3131 


A A / 4 7 k 

006434 


nil 

247 






AUA 


A 
H 


iOCT CI AGO 

tots rLflbs 


7 4 "71 

3132 


A A / A 7C 

006435 


7A1 

302 


A / 1 

062 


A4 C 

015 


1117 


or kino 


fir nil rhlHij HVUiU ITrlNu tUUt 


3133 
















71 "1A 

3134 


AA/ A AA 

006440 


1 77 

1/3 






H0V 


A»E 


J PUT IN MEM FOR PRINT ROUTINE 


313j 


AA/ A A 4 

006441 


71 c 

31j 


304 


A7A 
030 


CALL 


P8BITA 


J PRINT NAME OF THIS DIAG FUNC 


3136 


AA Z A A * 

006444 








PSLASH 




{AND V 


(2) 


AA /AAA 

006444 


74 7 

31/ 






RST 


1 


IG0 PRINT CHAR IN TRAILING BYTE 




AA/ A AC 

006443 


AC 7 

Uj/ 






.BYTE 


SLASH 


{ CHAR TO PRINT 


313/ 


AA LAAL 

006446 


71 C 

315 


71 A 

314 


A7A 
030 


CALL 


P16, 


I AND PRINT IT 


71 "TO 

31^8 


AA/ AC4 

006451 








PCRLF 






/ 1 \ 
(2) 


AA / AC4 

006451 


7 A "3 

347 






RST 


4 




(25 


006452 


AAA 

002 






♦BYTE 


2 




313? 
















74 AA 

3140 


AA/ AC7 

0064d3 


■9 AC 

305 






PUSH 


B 


{SAVE COUPLE REGS WHILE GO DECNET 


"74 A 4 

3141 


A A / h C A 

006454 


71C 

325 






PUSH 


D 




"74 A1 

3142 


AA/ ACC 

006455 


74 C 

315 


205 


A*7 A 

034 


CALL 


DECNET 


{YES.. SEND THIS GROUP OF DATA DOWN THE KLINIK LINE 


3143 


006460 


714 

321 






POP 


D 


{RETRIEVE THOSE REGISTERS 


"74 A A 

3144 


006461 


•JA4 

301 






POP 


B 




"74 AC 

3145 
















3146 










iCOBE FOR SAVING THE RESULTS OF THESE FUNCTION READS IN THE 8080 RAM SPACE 


71 JI7 

314/ 










IFOR N0y WE WILL SAVE THE RESULTS IN THE PLACE WHERE CRAM DATA IS KEPT 


"74 *n 

3148 


AA/ A / 1 

006462 


AC1 

052 


4 AA 

100 


AAA 

040 


RCN0P? LHLD 


THPB2 


{FETCH UP THE DATA THAT WAS ACTUALLY READ 


71 AO 

314V 


AA/ A iC 

006465 


1 1A 

1/4 






MOV 


A»H 


{GET LO ORDER PIECE TO ACCUM 


71 CA 

31j0 


AA/ ALL 

006466 


AA1 

002 






STAX 


B 


{STORE TO PLACE POINTED TO BY •BjE" 


71 C4 

3151 


AA / A / -J 

006467 


A1 7 

013 






DCX 


B 


{UPDATE THE STORAGE POINTER 


74 CS 

3152 


A A Z A 7A 

006470 


4 7C 

175 






MOM 


AfL 


{GET HI ORDER PIECE OF CRAM DATA 


71 C"7 

31j3 


AA/ A74 

006471 


002 






STAX 


B 


{SAVE IN STORAGE AREA 


74 C A 

3154 


AA / n<i 

006472 


A4 "? 

013 






DCX 


B 


{AGAIN DOWNDATE POINTER TO BEGINING OF ACTUAL 


74 CC 

3155 
















3156 


006473 


034 






INR 


E 


{INCREMENT IT 


3157 


006474 


173 






MOV 


AfE 


{COPY CURRENT COUNT TO ACCUM FOR THE COMPARE 


3158 


006475 


376 


020 




CPI 


"020 


{REACHED MAX YET?? 


3159 


006477 


302 


025 


015 


JNZ 


RCLP 


{BACK IF NOT YET.. 


3160 
















3161 










{OTHERWISE 






3162 


006502 








ENDCMD 




{BONE... 


(1) 


006502 


311 






RET 




{RETURN TO CALLER 
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3164 
3165 
3166 
3167 

3168 006503 
(1) 006503 
(1) 006504 

3169 006505 

3170 006510 
3171 

3172 006513 

3173 006514 
3174 

3175 006516 
3176 

3177 006521 
3178 

3179 006524 

3180 006525 

3181 006530 
(1) 006530 
(1) 006531 

3182 006532 

(1) 006532 
(15 006533 

3183 006534 
3184 

3185 006535 

3186 006536 

3187 006537 

3188 006540 
3189 

3190 006541 

3191 006542 
3192 

3193 006545 

(2) 006545 
(2) 006546 

3194 

3195 006547 

(1) 006547 
3196 

3197 006550 

3198 006555 

3199 006562 

3200 006565 



347 
006 

041 150 015 
001 207 004 

171 

346 003 

315 362 014 

315 160 004 
345 

315 314 030 

317 
040 

317 
040 
341 

171 
017 
017 
117 

005 

302 113 015 



347 
002 



311 

103 125 122 

116 130 124 

112 057 000 

123 125 102 



♦SBTTL ttt "EJ* CMD ttt 

! CONSOLE COMMAND TO DISPLAY THE FLOW OF THE CONTROL STORE BY PRINTING 
fOUT THE CURRENT 'J-FIELDS 'NEXT LOC"» "SUBROUTINE RET REG'i % "CURRENT 
? LOCATION" 

EJCMD5 RUN,. 5 IS CPU RUNNING?? 

RST 4 
.BYTE 6 

LXI HjEJLST 5FIRST GET A PNTR TO ASCII TEXT 
LXI B»"B10010000111 5SET B=4 % C= , 10f00f01»ll" 



ejlp: 



EJii 



MOM 
ANI 

CALL 

CALL 

PUSH 
CALL 
PCHAR SPACE 



A»C 
3 

READC 

F1N1 

H 

P16. 



RST 



1 



.BYTE SPACE 
PCHAR SPACE 



RST 



1 



♦BYTE SPACE 
POP H 



MOV 
RRC 
RRC 
MOM 

DCR 
JNZ 



A»C 



CfA 



EJLP 



F'CRLF 
RST 4 
.BYTE 2 
fELSE.. END OF COMMAND 
ENDCMD 
RET 



iCQPY HI AG FUNC STRING TO ACCUH 
fSTRIP ALL BUT LO ORDER 2 BITS 

5 GO READ DIAG FUNC AS GIVEN BY ACCUM 

5 PRINT ASCII IDENTIFIER FOR THIS FUNC 

5SAVE "HjL* 

I AND GO PRINT IT AS 16 BIT OCTAL 

JGO PRINT CHAR IN TRAILING BYTE 
J CHAR TO PRINT 

»G0 PRINT CHAR IN TRAILING BYTE 
I CHAR TO PRINT 
JGET "HiL* BACK 

J GET FUNCTION PICKER 
i SHIFT FUNCTION LIST 
} 2 PLACES 
j PUT BACK FUNCTION 

iNOU DOWN THE COUNTER 

>AND JUMP TO THE EXECUTING CODE 

5 AND A CR-LF 



? RETURN TO CALLER 
{RETURN TO CALLER 



EJLSTI .ASCIZ %CUR/% 5FUNC 03 IS CURRENT CRAM LOCATION 

.ASCIZ %HXT/% JFUNC 01 IS NEXT LOC 

, ASCIZ %J/% iFUNC 00 IS J-FIELD 

.ASCIZ %SUB/% JFUNC 02 IS SUBROUTINE RETURN REG 
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3202 , SBTTL tt* "TR" CMB ttt 

3203 JTHIS CONSOLE COMMAND TRACES THE.FLOU OF THE MICRO-CODE BY TYPEING 

3204 f THE 4 KNOUN ADDRESSES FROM THE CONTROL RAM ADDRESS BRDr THEN ISSUEIN6 

3205 »A SINGLE CPU PULSE AND CONTINUING THIS UNTIL THE USER TYPES A 

3206 {CARRIAGE RETURN, 



320/ 


AA / £""J<*i 

006572 


332 


206 


A4 C 

015 


TRCnlu 


JC 


TRl 


* Tr* Lin ATii*- r«n t Tir'p unptUAi 

? IF NO ARGf 60 LIKE NGRnAL 


3208 


006575 










AR616 




* tt hap Ar«f* nrt tt 

j IF sAS ARC? 00 BET iT 


/ 4 \ 
(1) 


AA / C"3C 

006575 


347 








R3T 


* 
4 




/IS 

(1) 


AAZC"7/ 

0Q65/6 


AAA 

004 








♦ BYTE 


4 




320? 


AA / C"5"" 

006577 


4 CI 

152 


AAA 

040 






♦ADDR 


BRKBT 


*f*il Apr Tit HUT TT 

i PLACE TO PUT IT 


3210 


















701 i 

3211 


AA/ /AH 

006601 


A7Z 

076 


A77 

07/ 






nvl 


A* 07/ 


?N0s ANY ARBITRAR I? N0N-ZER0 vALUE 


inn 
6111 


AA / / AT? 


A£0 


131 


AAA 




CTA 

blR 


DDk-'fUI 

BhKUN 


*Tfl CAV TUAT GDCAkTUf 4 TC fiki 

flu bRl IHhi BKtRiuNb lb UN*» 


7017 

6116 


















7014 


AA/ /A/ 

UUoovo 








I Kit 


f\UFU ♦ 






(i) 


006606 


347 








RST 


4 




\l) 


AA/ / AT 

UU66U/ 


AAZ 








♦ CI It 


6 




101 c 

321j 


AA/ / <J A 










PI DD 


DDCTftiFi 


iOH PAkl Pi D PMFi PUTD 

fbu LAN LLh tnU LNlh 


701 Z 

olio 


AAZI10 


A70 

Kill 


IjI 


AjIA 


TD* 
IK* 


LUR 


DDk'fUi 

DhKUN 


iPUrPfc* TC DDCAk" TO flii 

jLf!lLI\ Ir bhtfiK lb UN 


701 7 

321/ 


00661 j 


OA"? 

247 








AliA 

ANA 


A 

H 


? CHECK rLAb 


3218 


AA / / 4 / 

006616 


312 


*^7A 

230 


A4 C 

015 




ITT 

JZ 


TKLr 


? IF tEROjOONT LOOK At BREAK bfUrr 


321? 


A A / / *\ 4 

006621 


AH 

021 


152 


AAA 

040 




LXI 


DiBRKDT 


iPASS PNTR TO THE DESIRED STOPPING ADDRESS 




AA/ / *1A 

006624 


71 C 

315 


171 


030 




CALL 


BREAK 


5IF FLAG SET? CALL TO CHECK ADDRESS 


3221 


006627 


"74 A 

310 








RZ 




fIF RETURN yiTH Z-SET? M ARE AT BREAK PLACE 


3222 


















3223 


006630 


315 


251 


015 


TRLPJ 


CALL 


PULSE 


!GIVE PULSE 


3224 


006633 










PCRLF 




^CARRIAGE RETURN LINE FEED 


(2) 
(2) 


006633 
006634 


347 
002 








RST 
♦ BYTE 


4 

2 




3225 


















3226 


006635 


072 


157 


040 




LDA 


RPENB 


56ET CMD CNTR 


3227 


006640 


247 








ANA 


A 


J IS IT SET?? 


3228 


006641 


312 


212 


015 




JZ 


TR 


?WELLf CONT LOOP IF NOT YET 


3229 










^OTHERWISE? END THE C0MHAND 


3230 


006644 










CLRB 


BRK0N 


J AND CLR THE FLAG 


3231 


006646 










ENDCMD 




? DONE** 


(1) 


006646 


311 








RET 




5 RETURN TO CALLER 



3232 
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3234 
3235 
3236 
3237 
3238 
3239 
(1) 
(15 
3240 
3241 
3242 
3243 
(1) 



006647 
006647 
006650 

006651 
006654 
006657 
006657 



347 
006 

315 
315 

311 



204 
103 



013 
015 



.SBTTL *** "PM* CMB tt* 

t CONSOLE COMMAND TO 'PULSE* ' MICRO-CODE* i.» IE GIVE 
iA SINGLE PULSE AND THEN AN *EJ* COMMAND,, 
j COMMAND IS EQUIVILANT TO THE *TR" TRACE COMMAND? 
50NLY EXECUTING THE TRACE ONCE,, 



PMCMD5 



PULSE! 



RUN,, 

RST 

.BYTE 

CALL 
CALL 
ENDCMD 
RET 



4 

6 

CP1 
EJCMB 



IIS CLK RUNNING?? 



GO DO A SINGLE CLOCK 

TYPE CONTROL STORE ADDRESSES 

AND OUT 

RETURN TO CALLER 



EXIT FROM THERE 
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3245 










♦SBTTL 


«** "EC CMD m 


3246 










{ROUTINE TO READ THE C-RAM AND TYPE IT OUT 


3247 


006660 








ECCHDJ 


RUN.. 




5 IS CPU RUNNING?? 


(1) 


006660 


347 








RST 


4 




(i) 


006661 


006 








.BYTE 


6 




3248 


006662 


332 


302 


015 




if* 

JC 


III 


f IF NO ARG? DONT 60 ASSEHBLE ONE 


3249 


006665 


315 


331 


013 




PA! I 

CALL 


LCCnD 


j FETCH UP DESIRED LRAn ADDRESb 


3250 


















3251 


006670 








ELI. 


LLRKfl 


TnrB2 


»ZAr A lEnrORflKT Burr Eh 


(1) 


006670 


347 








hST 


4 




(1) 


006671 


012 








.BYTE 


10. 




(1) 


006672 


105 


040 






•ADDR 


TMPB2+5 




tic* 

3252 


















3253 


006674 


315 


315 


014 




CALL 


CRM .AD 


.NOW WRITE DESIRED CRAM ADDRESS 


3254 


006677 


315 


204 


013 




CALL 


CP1 


JAND GIVE A SINGLE CLK PULSE TO LOAD CNTRL REG 


3255 


















3256 


006702 


076 


006 




EC25 


MVI 


A, OA 


J SET UP "EXAMINE NEXT' TYPE COMMANDS 


3257 


006704 


062 


031 


040 




STA 


ENEXT 


J SAME EXAMINE STUFF IN RAM 


3258 


















3259 










5 NOW READY TO READ THE CONTROL REG 


3260 


006707 


041 


041 


016 




LXI 


HfRDLST iGET PNTR TO DIAG FUNCTIONS TO BE READ 


3261 


















3262 


006712 


176 






ECLP5 


MOM 


A»M 


>GET DIAG FUNCTION TO ACCUM 


3263 


006713 


A AT 

043 








INX 


H 


? UPDATE PNTR 


3264 


006714 


247 








ANA 


A 


IWAS FNC END-QF-LISTCYES IF WAS MINUS) 


3265 


006715 


372 


344 


015 




JM 


ECBEE 


iJMP IF WAS END OF LIST 


3266 


















3267 










j OTHERWISE* WE 


MUST DO A DIAG FUNCTION 


3268 


A A f ""i/t A 

006720 


315 


362 


014 




CALL 


READC 


iGO READ THIS DIAG FUNCfDATA RETURNED IN "TMPB2* 


3269 


006723 


042 


170 


040 




SHLD 


ECSAV 


JNOW SAVE "HfL" FOR A MINUTE 


3270 


















3271 


006726 


041 


100 


040 




LXI 


HtTMPB2 


J POINTER TO DATA JUST READ 


3272 


006731 


315 


032 


031 




CALL 


OCTAL 


}N0W TURN DATA INTO ASCII OCTAL CHARS 


3273 


006734 


002 








.BYTE 


2 


ITWO BYTES RELEVANT DATA 


3274 


006735 


004 








.BYTE 


4 


» WANT 4 OCTAL CHARS 


3275 


















3276 


006736 


052 


170 


040 




LHLD 


ECSAM 


RESTORE THE 'H»L* 


3277 


006741 


303 


312 


015 




JMP 


ECLP 


f AND CONTINUE TILL READ ALL DIAG FUNCS 
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3279 J WHEN U GET TO HERE* YOU'VE READ ALL FUNCS> NOW READ S CMP A 1 B COPIES 



3280 


M /"J A A 

006744 


1/6 






ECBEEi NOV 


AjM 


J GET DIAG FUNC FOR AN 'A' COPY 




006/43 


043 






INX 


H 


j UPDATE MEM PNTR 


3282 


AA / "J A / 

006746 


247 






ANA 


A 


J DID DIAG FUNC HAVE MINUS SIGN?? 


3283 


AA / T A"? 

006747 


3/2 


012 


A4 / 

016 


JM 


PCRAM 


I DONE LIST* JMP IF UAS MINUS 


3284 










fQTHERyiSEf GO AND READ THE "A" COPY AGAIN 


3285 


aa / "itrn 

006752 


315 


tin 

362 


A 4 A 

014 


CALL 


READC 


?DATA RETURNED IN TnPB2 


3286 


AA / ICC 

006/55 








iifll ICTi 

H0v5B 




*\£ftiiP THAT TiAT A Tf\ '"lilT* Tl£l"i Til If* f" 

ffluvE THAT DATA TO 2ND Tnr BUFF 


u) 


006755 


7 A"? 

347 






DOT 

RoT 


A 

4 




/ 1 \ 

(1) 


Uu6/j6 


AAA 
000 








A 
U 




328/ 


006757 


■t AA 
100 


AAA 

040 




amid 






3288 


006761 


A77 

073 


AAA 

040 




,ADDR 


TMPBF2 


i PLACE TO PUT IT 


32b¥ 
















6Zi\f 


AA£7Z7 

UUo/6,!> 


1 7 Z 
1/6 






MOM 


A»M 


I GET DIAG FUNC FOR A *B" COPY 


7'7G1 
Oil I 


AA£7£A 


U4o 






INX 


H 


JUPDATE PNTR 


7000 
Oil I 


UUa/OJ 


71 c , 


ool 


A1 A 


CALL 


READC 


5N0y READ A , B" COPY 


1W2 


















AAZ77A 


1A C , 






PUSH 


H 


5 SAVE "HiL" 




AAA7*?1 


11 c . 

OiJ 




flit 


CALL 


CMP36 


»NQy COMPARE THE 'A* AND "B" COPIES 


Q£7Q 


VVO//H 


1 AA 


A1A 




♦ADDR 


TMPB2 


i'B' COPY 


3297 


006776 


073 


AAA 

040 




♦ADDR 


THPBF2 


fA" COPY 


3298 


007000 


341 






POP 


H 


J RESTORE *H»L« 


3299 


007001 


312 


344 


015 


JZ 


ECBEE 


?IF CHECKED 0K» BACK TO READ NEXT 'A/B' COPIES 


3300 
















3301 










f FALL THRU TO VERIFY ERROR IF "Z" NOT SET 


3302 


007004 








PLINE 


ECVER 


i' 'VERIFY ERR" 


(1) 


007004 


337 






RST 


3 


IPRINT LINE OF CHARS 


(1) 


007005 


104 


037 




«ADDR 


ECVER 


5 BUFF TO PRINT 


3303 


007007 


303 


021 


015 


JMP 


RCINT 


560 PRINT ALL CRAM REGS 



3304 
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3306 

3307 007012 

3308 007014 
330? 007017 
3310 007022 

(2) 007022 

<2> 007023 

3311 

3312 



5IF "A/B* COPIES UERIFIEB> TIME TO PRINT C-RAM CONTENTS 



076 003 
315 362 014 
315 314 030 

317 
057 



PCRAMJ 



HVI A>03 

CALL READC 

CALL P16. 
PSLASH 

RST 1 

.BYTE SLASH 



BIAG FUNC TO READ "CURRENT CRAM LOCATION' 
GO READ CURRENT CRAM LOC, 
PRINT IT 
AND '/' 

GO PRINT CHAR IN TRAILING BYTE 
CHAR TO PRINT 



»NOy PRINT THE 32 OCTAL CHARS 



771 7 

00X0 


AA7A9A 


AAA 


AAA 






MUT 
nVi 




IUI\H fti&P3 Tfl PPTHT 
IrtUn L-nHIUJ IU r Kin i 


771 £ 
OOLn 


AA7A9A 


7A1 






rlmLr * 


PHP 


PQM 
row 




771 *=£ 

■J -21 -J 


AA7A07 


715 


A1 A 


AA4 




LHLL 


PfHP 


!PPTHT TT 


771 a 

OOIQ 


AA7A79 


AA C . 








TiPP 


D 


rliUwrf LUUfll Ur L*nni\Q r IMF! ill 1 


7717 
OOlf 


AA7A77 




AOI 


A1 A 




IM7 


prpi P 


:i nnp tti i nnur 

fLuUl l ILL LIUIXL 


771 


















7710 


AA7A7A 










ru\Lr 




:urrri rp-i r 

JNttlJ Lr\ Lr 




AA7A7Z 










OCT 

Kb! 


A 






AA7A77 


AAO 








♦ Bl it 


*j 
i. 




770A 


















77^1 
OQiLl 


AA7AAA 














JTI4FH flliT 
! i ntn UU 1 


i 1 \ 


AA7AAA 


71 1 
511 








hti 




> RETURN TO CALLER 


ooli 


AA7AjH 

GO/ 041 


A1 "J 
01/ 






KUL51 « 


♦ Pit 


"017 


J READ 84-95 


7707 
OOlo 


AA7AA0 


A1 A 








BYTiT 
♦ Di ill 


"016 


5 READ 72-83 


770A 


AA7AA7 


Al** 
ViJ 








♦ i?l it 


"015 


J READ 60-71 


77TS 


UU/U44 


A1 A 








♦ El It 


"014 


IREAD 48-59 


3326 


007045 


012 








♦ BYTE 


"012 


5READ 36-47A 


3327 


007046 


005 








♦BYTE 


"05 


?READ 24-35A 


3328 


007047 


004 








♦BYTE 


"04 


jREAD 12-23 


3329 


007050 


000 








♦BYTE 





rREAD 0-11 


3330 


007051 


377 








♦BYTE 


"0377 


5END BYTE 


3331 


007052 


012 








♦BYTE 


"012 


»REAB 36-47A 


3332 


007053 


013 








♦BYTE 


"013 


5 READ 36-47B 


3333 


007054 


005 








♦BYTE 


"05 


J READ 24-35A 


3334 


007055 


006 








♦BYTE 


"06 


rREAD 24-35B 


3335 


007056 


377 








♦BYTE 


"0377 


fEND BYTE 


3336 


















333? 










.SBTTL 


m *en 


• CMD *« 


3338 


007057 


052 


004 


040 


ENEC5 


LHLB 


CRHAD 


JGET CURRENT ADDRESS 


333? 


007062 


043 








INX 


H 


j UPDATE IT 


3340 


007063 


042 


004 


040 




SHLB 


CRMAD 


JPUT IT BACK 


3341 


007066 


303 


270 


015 




JHP 


ECl 


r60 TO COMMON CODE 
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oo^O 










♦SBTTL 


ttt "DC CHD ttt 


17 A A 

3344 










♦SBTTL 


ttt i m 


1 TO DC* CHD ttt 


77 AC 










iCODE USED IN DEPOSIT NEXT FOR THE CRAH 


"77 AA. 

3346 


AA7A71 

0070/1 


AC*} 

052 


AAA 
004 


AAA 

040 


DNDCi 


LHLD 


CnnAD 


fUtl CURKENT hDDKESS 


77A7 

334/ 


AA7A7A 


043 








TUV 


u 
n 


iTMr&CMCyT TT 

jlNLKtntNl ii 


17 AG 

3348 


AA7A7C 

0070/5 


042 


AAA 

004 


AAA 

040 




SHLD 


LKnALl 


?rUT If shIK 


77A0 

334? 


















33jU 


AA71 AA 
00/100 








DCCHD5 


RUN,. 




?lb Iru hUNNlNbrr 


{ i \ 

(1) 


AA-J4 AA 
00/100 


34/ 








RST 


4 




f 1 ^ 


AA71 A1 
UU/1U1 


AAA 
Ovo 








.BYTE 


6 




7751 

33D1 


AA71 AT 


71 c 

31j 


007 

22/ 


A71 
031 




CALL 


ARG96 


fHOOLrlDLC. L'RIH IU ytrUOi 1 


7750 


AA71 A5 


700 

322 


040 






.ADBR 


CRMTH 


£ PI APC Til PUT TT 


OO-JO 


















OOon 


AA71 A7 


A01 

VA.1 


7A0 


AAA 




LXI 


DjCRMBF 


■Pi ^rr Tn put tup PCQiii tq nr tuc* pp&m Qutirn r 
frLHLL iu rul inc. f\lDUL15 ur § nn Ur\Hn QnUrrLL 


000%} 


AA71 10 


AA1 


700 


AAA 

V7V 




LXI 


H»CRHTM 


flnt ULU ii 01 It rUI\nHI WILL HLwRiq i?t ntl\t 


OOOQ 


AA71 


A1 A 


AAA 






HVI 


C»4 




000/ 


















OOOD 










J BEGIN THE UNPACKING 




77CQ 
0007 


AA71 1 7 

vv/a/ 


715 
oio 


AAO 


A70 
VOL 


PStii P* 
UtnLr ♦ 


UHL.L 


pi 

rLHitt 


t\ nr^i pniiTTur tuat TAkTc 10 cttc OA 


77AA 


AA7100 
vU/12»£ 


V/O 


AA7 






nvi 


HfO 


?fl bnlr 1 24 Kt«UlKLo 3 i?T!tb Ur UhIh iu brlir l 


7 7£1 
3351 


AA710A 
UU/124 


31D 


1 5a 
1D6 


A71 
031 




PAJ 1 




*OUTCT 10 DTTO il!CT DArkTri TUTfi fiifTCD CDAPC 

f bnlr I 12 dII o Jubl rHlf\Li{ IN 1 U UUitK brHLh 


77Z0 
3362 


AA71 07 

UU/12/ 


A1 A 
014 








DVTiT 

»cl It 


1 
12« 


STC! I DntlTTkir 10 Di Arrc 
fitLL KUUllNt 12 rLHttb 


"77 / 7 

3363 


AA7 4 7A 

007130 


74 C 

315 


062 


032 




CALL 


PLACE 


fNOy ROUTINE WILL GET 12 MORE BITS**12t12 s 24 


77 LA 

3364 


















77i5 

336j 


AA71 77 
00/ 133 


AA7 

043 








TXiV 


u 
n 


SIIDnATC DUTD 7-.CVTCC/TC OA t«TTC\ 

?UriJHlt rfnh 3 i?i!tb\lt 24 blib; 


77/ / 

3366 


AA"J< 7 A 

007134 


A A"? 

043 








TMV 
IN A 


Li 

H 




77 / 7 

3367 


A A7 4 7C 

00713d 


A 47 

043 








TUV 


y 
H 




77ZO 

3368 


















336r 


AA71 71 

007136 


A1 C 

015 








DLR 


C 


iDOwN THt COUNTER (THERE ARE 4 GROUPS OF 24=96 ) 


777 A 
33/V 


AA71 77 
00/13/ 


7AO 

302 


117 
11/ 


A1 Z. 

016 




JNZ 


GENLP 


iPnUTTUHC TTI i FifVftfU TUC 4 PDnilDO 

flUNIlNUt I ILL Uufw Inc. 4 bKUUrb 


7771 
33/1 


















7770 
33/2 


AA71 A r i 


71 C 

31*j 


71 5 

315 


A1 A 
014 




CALL 


CRK.AD 


*LIDTTET TUr PDAM ATiTiDrOC 

fwKilt IHt bhHn Ri'lmtbb 


7777 
33/3 


AA71 AX. 
00/14D 


041 


7A0 

302 


AAA 
040 




LXI 


HfCRHBF 


?btl rLRUt yiitKt InrU «Hb JUbt rLHttli 


777A 
00/4 


















777«% 


AA715A 


fill 

0/6 


006 






HVI 


ft ? 06 


.yiiMi^rp rnp rirpncTT yrvT th iiqc* 
?RUnl>ti\ rUI\ iitrUbll ntAl IU Ubt 


7771 

33/6 


AA71 CO 
Qv/1j2 


AiO 

062 


A77 

033 


AAA 
040 




STA 


DNEXT 


iCTAMriAC'Ti Di APC TH If CCD TT 

?biHm.ifthy rLRLL IU Rttr 1! 


7777 

OOf f 


Uv/lJJ 


U/1 








INR 


A 


icrT cnyrTTny cn 7/tud unDk'c t>v i tick's 
iot\ rUNLi lUN *tU» /\1NK »UKI\b l?T LULft/ 


777G 
33/0 


AA71 C ,A 


AA1 
001 


A1 A 
010 


iSAfi 

040 




LXI 


BfCRHFN 


*CCT All ArifiDCCC TkiTH IU PI OCPTCTFD Tfl I ICC AC 

fbcJ AN RuDKEbo 1NIU SfC hc.uISlc.KnO USE AS i 


7770 
33/7 


AA71 ii 
00/161 


AAO 

002 






BCLPS 


STAX 


B 


*PA!ir' TT Til TUC r*AU AT i flP inf^UfJilI 

?SAVE IT IN THE RAM AT LOC CRMFN 


770A 

33bU 


















7701 

3381 


AA71 IO 

007162 


i ii 
136 








HOv 


E?H 


*PCT O liTTC- nr ft AT A 

?bc.l o i?ilb Ur DAI A 


77CJ 

3382 


AA")4 £7 

007163 


043 








INX 


H 


MiDFiATC DilTD 

fUrUAlt rNTK 


7707 

3383 


AA71 I A 

007164 


1 ***£ 

u6 








HOV 


DfH 


•PET A UfSDC DTTC* nr FiATA 

fbtl 4 nUKL ijIIS Ur DAiA 


3384 


AA71 iC 
00/16 J 


AJI7 

043 








INX 


H 


'Akin HDTiATr DilTG APATU 

fAND UFBATE PNTR AGAIN 


770C 

338vi 


















7701 

338d 


AA74 LL 

007166 


7C7 

353 








XCHG 




5N0y 8 H ? L' CONTAINS THE DATA I B D?E f THE PNTR 


7707 

338/ 


AA71 £7 
007167 


71 C* 

olo 


1 £7 

263 


A1 A 
014 




CALL 


yFUNc 


?ANB DIAG FUNCTION URT 


3388 


007172 


353 








XCHG 




r POINTER BACK TO 8 HiL 8 


3389 


















3390 


007173 


012 








LBAX 


B 


? GET PARTICULAR BIAG FUNC FROM RAH LOC 


3391 


007174 


075 








OCR 


A 


fBOyN TO NEXT 


3392 


007175 


362 


161 


016 




JP 


DCLP 


5 AS LONG AS 0-7? KEEP GOING 


3393 


007200 










ENBCKD 




JNOy ALL BONE 


(1) 


007200 


311 








RET 




5 RETURN TO CALLER 
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33?D 










.SBTTL ttt "SH 


' CMD m 


6570 










iCODE TO START THE MICRO-CODE AT THE ADDRESS SPECIFIED. . 


7707 

33t7 










i DEFAULTS TO STARTING AT C-RAH L0C IF NO ADDRESS IS 


33?8 










i GIVEN 






33?? 


00/201 


332 


212 


ylo 


SHCMDi JC 


SHI 


fIF NO ARG» SUPPLY ADDRESS OF 0000 


3400 
















7 4A1 

3401 










5 OTHERWISE MUST ASSEMBLE THE GIVEN ADDRESS 


7 A A*"* 

340<: 


AA70AA 

007204 


71 C 

31j 


^A A 

244 


A7A 

030 


CALL 


ARU16. 


fASSEMBLE 16-BITS OF ARGUMENT 


74A7 

3403 
















"I A ft A 

34U4 


AA70A7 


7A7 
3U3 


01 5 

21j 


A1 1 

vl6 


IMP 
Jnr 


SHI. 5 


JOTHERyiSE? CONTINUE NORMALLY 


















7AAA 


AA7O10 


AA1 


AAA 


AAA 


om« Lai 


HjOO 


J IF HERE » DESIRE ADDRESS OF 0000 






AiO 

V7i 


AAA 


AAA 


OnitJ* 3nLU 


T80DT 


iSET ADDR 


















7 .4 AO 
340? 


AA700A 


71 C! 

31j 


oos 
22j 


AA5 


CALL 


HRCHD 


5 RESET THE MACHINE 


7A1 A 
















7A1 1 


AA7007 








M0V5B 




5 SET UP INITIAL DATA 


M \ 


AA7007 

UU/ lid 


7A7 
34/ 






RST 


4 




/ 1 \ 
\I ; 


AA700A 


AAA 
wv 






•BYTE 







34l£ 


AA7005 


0*"£ 


aoo 




.ADDR 


ONES 


5 DATA TO BE IS ALL ONES 


7A17 

3413 


AA7O01 
Willi 


AA7 
U4/ 


AilA 
U4U 




.ADDR 


DHDAT 


{PLACE WHERE IT GOES 


1Ai A 
















341a 


AA7071 

00/231 


A01 

021 


7LA 

364 


A1 Z. 

U16 


LXI 


BiHABOOO J6ET ADDRESS OF MEH LOC 


741 £ 

3416 


AA707A 
00/234 


71 C" 

31j 


077 

23/ 


A1 O 

012 


CALL 


DHINT 


V DEPOSIT MEMORY" INTERNAL FORMAT 


1A 1 7 

341/ 
















3418 


007237 


072 


7C * 

354 


AAA 

040 


LDA 


F'ARBT 


iGET PARITY STUFF 


3419 


007242 


346 


140 




ANI 


"0140 


JONLY KEEP A LITTLE BIT 


3420 


007244 


323 


100 




OUT RESET 


SAND TURN OF ALL PARITY STUFF WHILE 


3421 
















3422 


007246 


052 


000 


040 


LHLD 


T80DT 


iGET START ADDRESS OF MICRO-CODE TO 


3423 


007251 


315 


320 


014 


CALL 


CADUR 


> WRITE THE DIAG ADDRESS REG 


3424 
















3425 


007254 


315 


214 


014 


CALL 


CSCHD 


» START THE CPU CLK FREE RUN 
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CMBS.M80 *** 'SM' CHD *<* 



3427 007257 315 265 033 HLTCHS CALL 

3428 007262 377 .BYTE 

3429 007263 315 346 006 CALL 

3430 007266 333 300 IN 

3431 007270 057 CHA 

3432 007271 346 010 ANI 

3433 007273 302 305 016 JNZ 
3434 

3435 {FALL TO HERE 

3436 007276 PLINE 
(1) 007276 337 RST 
(1) 007277 146 037 . ADDR 

3437 007301 067 STC 

3438 007302 303 356 016 JMP 



BELAY. ?NOy WAIT FOR MICRO-COBE TO REACH HALT LOOP 
-1 

CLRUSE {EXIT FROM USER HODE 

RUNFP {***» I/O RB 300 ***** 

{AND FIX INVERSION 

"010 JIS CPU IN THE HALT LOOP??? 

SHVER {JUMP IF YES..APPEAREB TO START OK 

IF SH10 BIB NOT SET HALT LOOP FLAG 
SHERR {PRINT ERR MESSAGE 
3 {PRINT LINE OF CHARS 
SHERR fBUFF TO PRINT 

{SET C-BIT TO INDICATE AN ERROR EXIT 
SMFINI {AND EXIT VIA RESTORE PARITY PATH 
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CMBS.M80 


ttt 'SH* CMD ttt 






3440 


007305 








SMVER! INTON 




? SET INTERAL STATUS FOR THE EXAMINE 


(1) 


007305 


327 






RST 


2 


»60 SET INTERNAL MODE 


3441 


007306 








EXAM 





i EXAMINE MEM LOC 0(MICR0-C0DE STOP CODE) 


(1) 


007306 


315 


216 


030 


CALL 


EXAMSH 


5AND DO EXAM ASSUHING SHORT ADDRESS 


(1) 


007311 


000 


000 




♦ADDR 





(ADDR TO BE ZAPPED PASSED AS TRAILING ARG 


3442 


007313 








INTOFF 




J TURN OFF INTERNAL STATUS 


(15 


007313 


367 






RST 


6 


I GO EXIT FROM INTERNAL MODE 


3443 










» IT DID SUCCEED IN SETTING HALT LOOP FLAGi SO MERELY PRINT HALTED 


3444 










{AND THE DATA IN LOCATION 0.. 


3445 










f ****bUDKUui INt 


'STOP CODE" tttt 


3446 


007314 


315 


255 


032 


P&i 1 


CTTPM 


i HiQT 6 i TTTi F k"i ilTlEF PMFAD UAY Tfi FTY QTATF i TEUT 
fJUOi H LI! ILL RLUi'Ut* *wnC.Hr writ !U rlA Olfilt Liunl 


3447 














5 TC PPHftPAU CYETMiTCTi & 8 UAi T 1 UUTi C I TTCC 14 CDC Di TMfc'Y 

? ir rKUuhftn CAttuliiLi ft nHLl iitlXLb LXlto wtKt dLXNIU 


3448 
















3449 


007317 








Pi Tyr 

rLXnt 


nLlnb 


J PPTyT *UAi TCri 1 MCCCAnC 

f r h X ft ! HhL i til ntobftbt 


(1) 


007317 


337 






PQT 
ftoi 


1 

Q 


« ppt kit i Tyr nc puapq 

frr\Xn! Lint Ur wnnfto 


(1) 


007320 


116 


037 




Afirip 

* RUI'ft 


nLlnO 


iGiirr Tfi PPTyT 


3450 


007322 


041 


012 


040 


i YT 
LAI 




ipyTP Tn riATA Ty \ nr a 

?rN 1 K IU lift IB Xn LUL v 


3451 


007325 


315 


016 


031 


f*Ai l 
LhLL 


Di 

rlo 


i DDT KIT DTPUT UA1 C fiC 1L DTT Ft AT A 


3452 


007330 








Pi PB 


riik'Lii T 


jqft n ak Tn q&y urur typfti u&i tfti m pfmiy 

JOt! rLflu !U Oni vfLVL 1 It" til fIRLIlU HLfttRiH 


3453 
















3454 


007332 








PCPAPET 

r br But 




£ PPTyT A. QPA.PF 


(2) 


007332 


317 






PCT 

hbl 


1 
X 


snn PPTyT puap Ty tpatj Tyn byte* 


(2) 


007333 


040 






BYTE" 


OrHUL 


iPUAD Til PPTyT 


3455 


007334 








pQpApr 
r or Hbt 




sA.yn amhtufp 


(25 


007334 


317 






PQT 


i 
I 


£Rft PPTyT PUAD Ty TPATi lllfl DYTF 

foU rhlru Lnnh X« mHXLXno plit 


(2) 


007335 


040 






BYTC 
*dT It 


SPACE 


} CHAR TO PRINT 


3456 


007336 








PCCQM5 INTON 




» SET INTERNAL MODE 


(1) 


007336 


327 






RST 


2 


JG0 SET INTERNAL MODE 


3457 


007337 








EXAM 


1 


{EXAMINE U0RD «HICH HOLDS THE PC 


(1) 


007337 


315 


216 


030 


CALL 


EXAMSH 


* AND DO EXAM ASSUMING SHORT ADDRESS 


(1) 


007342 


001 


000 




♦ADDR 


1 


$ADDR TO BE ZAPPED PASSED AS TRAILING ARG 


3458 


007344 








INTOFF 




JCLR INTERNAL MODE 


(1) 


007344 


367 






RST 


6 


{60 EXIT FROM INTERNAL H0DE 


3459 


007345 








PLINE 


PCMSG 


{PRINT 'PC/' 


(1) 


007345 


337 






RST 


3 


{PRINT LINE OF CHARS 


(1) 


007346 


112 


037 




.ADDR 


PCMSG 


{BUFF TO PRINT 


3460 


007350 


315 


347 


030 


CALL 


P36, 


5AND PRINT THE PC 


3461 


007353 








PCRLF 




{PRINT CARRIAGE RETURN LINE-FEED 


(2) 


007353 


347 






RST 


4 




(2) 


007354 


002 






.BYTE 


2 




3462 


007355 


247 






ANA 


A 


{CLEAR THE C-BIT 'CAUSE ALL OK 


3463 
















3464 










IAND BEFORE UE LEAVE » RESTORE THE PARITY STUFF 


3465 


007356 


072 


354 


040 


SMFINIJ LDA 


PARBT 


{GET CURRENT PARITY DEFAULTS 


3466 


007361 


323 


100 




OUT 


RESET 


{RESTORE THE PARITY DETECTS 


3467 


007363 


311 






RET 




{AND OUT 


3468 


007364 








ZEROES! 






3469 


007364 








MADOOO! D 


0>0u0»0 5 MEMORY ADDRESS 


3470 














{ FROM MEMORY LOCATION 
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CHBS.M80 ttt 'PE' CMD M 



3472 










3473 










3474 










3475 










3476 










3477 










3478 










3479 










3480 










3481 


007371 


332 


020 


017 


3482 










3483 


007374 


315 


244 


A"7A 

030 


*? Art k 

3484 










3485 


007377 


175 






3486 


AA~J AAA 

007400 


346 


007 




3487 


AA"1 A A'"t 

007402 


027 






3488 


007403 


027 






348? 


007404 


027 






3490 


007405 


027 






3491 










3492 


007406 


157 






3493 


007407 


072 


354 


040 


3494 


007412 


346 


217 




3495 


007414 


265 






3496 










3497 


Aft"} tjr 

007415 


"TAT 

303 


361 


AH "7 

013 


3498 










3499 










3500 










3501 


A A"? ItA 

007420 


072 


354 


040 


3502 


007423 


346 


160 




3503 


007425 


037 






3504 


007426 


037 






3505 


007427 


037 






3506 


007430 


037 






3507 










3508 


007431 


315 


304 


030 


3509 


007434 








(2) 


007434 


347 






(25 


007435 


002 






3510 


007436 








(1) 


007436 


311 






3511 











♦SBTTL ttt 'PE' CMD ttt 

$ COMMAND TO ENABLE VARIOUS PARITY CHECKS NORMALLY MADE BY THE 8080., 
{ACCEPTABLE PARITY COMMANDS ARE} 

i PE {'DISABLE' ALL PARITY DETECTION 

5 PE 1 {'ENALE' "BP" PARITY DETECT 

{ PE 2 J "ENABLE* "CRM" PARITY DETECTION 

{ PE 4 5" ENABLE' "PE" PARITY BET(CLK FREEZE ON PAR ERR) 

? PE 7 {'ENABLE' ALL 

{BITS ARE WEIGHTED FOR THE THREE TYPES OF PARITY ERRORS 

F'ECHBi JC PARDIS {COMMAND REQUIRES ARB 



CALL ARG16* {ASSEMBLE TYPED ARG 



MOV A»L {GET NUMBER TYPED INTO THE ACCUM 

ANI "07 iKEEP ONLY APPROPRIATE BITS 
RAL {BIT INTO BIT1 

RAL JBIT INTO BIT 2 

RAL { INTO BIT 3 

RAL { INTO BIT 4 



MOV LiA {SAVE IN L 

LDA PARBT JNQy GET CURRENT STATUS 

ANI "0217 ?OFF THE OLD CRUMMY PARITY 

ORA L {THROW IN THESE NEU BITS 



JMP KS.PAR {SAVE IN RAM PLACE t WRITE TO KS 



{THIS IS THE CODE FOR IF HE WANT TO DISPLAY THE PARITY 
PARDIS 5 LDA PARBT {GET THE CURRENT PARITY STATUS 

ANI "0160 JCLR CRUDi JUST SAVING PARITY BITS 

RAR {ROTATE TO JUSTIFY THE BITS AT BIT 

RAR 

RAR 

RAR 



P8CRLFJ CALL P8BITA 5 AND 60 PRINT THOSE 8 BITS 
PCRLF JTERHINATE ALL WITH A CR-LF 

RST 4 

.BYTE 2 

ENDCMD {ALL DONE 

RET {RETURN TO CALLER 
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CMBS.M80 *** ■EX' CMC *** 



3513 
3514 
3515 

3516 007437 

(1) 007437 347 

(1) 007440 010 

3517 007441 012 040 
3518 

3519 007443 021 012 040 
3520 

3521 007446 315 143 033 
3522 

3523 007451 076 002 

3524 007453 323 114 
3525 

3526 007455 076 003 

3527 007457 323 212 
3528 

3529 007461 000 

3530 007462 000 
3531 

3532 007463 333 300 

3533 007465 057 

3534 007466 346 001 

3535 007470 310 
3536 

3537 

3538 007471 

(1) 007471 337 

(1) 007472 125 037 

3539 007474 315 346 006 

3540 007477 057 

3541 007500 247 

3542 007501 311 



.SBTTL *** 'EX* CMC *** 

} CONSOLE COMMAND TO EXECUTE A SINGLE SM10 'TEN ORDER' INSTRUCTION 



EXCMDi AR636 ?G0 ASSEMBLE THE INSTR TO BE EXECUTED 

RST 4 

.BYTE 8 

♦ADDR EMBUF I PLACE TO PUT IT 

EXINTMJ LXI D> EMBUF } POINTER TO INSTR INTO "D»E" 

exint: call udatp ;««« i/o urt I02»i04»i06»i0i»ii2 ***** 

mi A»2 5 SET BIT FOR 'I/O DATA CYCLE" 

OUT DTARB ittttt I/O URT 114/2 ttttt 

mi A»3 JBITS FOR "EXECUTE" S "CONTINUE" 

out cpuctl mm i/o brt 212/3 ***** 

dnf; nop 

nop mu 

IN RUNFP 5 ***** I/O RD 300 ***** 

CMA 5FIX INVERSION 

ANI 1 ?IS CONTINUE STILL SET?? 

RZ 5 IF CLRj WE ARE OK... 

ilF CONT STILL SET* HE HAVE AN ERROR 

PLINE EXMS JERR MESSAGE "'DNF-DID NOT FINISH" 

RST 3 i PRINT LINE OF CHARS 

.ADDR EXMS »BUFF TO PRINT 

CALL CLRUSE 5EXIT FROM USER MODE 

CMA IACCUM NOW .EQ. -1 

ANA A ISET FLAGS* SO "JNZ" «ILL JUMP 

RET JAND RETURN 
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CMDS.M80 m "ST" CMD ttt 



3544 










♦SBTTL 


m "ST" cmd m 


3545 










JC0NS0LE C0HHAND TO ISSUE ft START TO THE CPU 


3546 


007502 


315 


120 


013 


STCHB* 


CALL 


LACMD 


? FIRST 80 ASSEHBLE A LEGAL hDDRESS AT HHICH TO START 


3547 


007505 










M0U5B 




JH0ME TO THP BUFF SO B0NT KILL 'HEHAB' 


(1) 


007505 


347 








RST 


A 

4 




(1) 


007506 


000 








ftVTP 

♦BYTE 







3548 


007507 


017 


040 






♦ABDR 


HEnAB 


?SRC 


3549 


007511 


073 


040 






♦ADDR 


THPBF2 


f TEHP PLACE TO KEEP IT 


7CCA 

3j50 


















3551 


















35j2 


AA7C4 7 

00/513 








□ I in! * 


pi DDK 




smhct n p mutt un&nQ &rrncr yr gtapt 


t i \ 
\U 


007j13 


7JI7 

34/ 










A 




(1/ 


00/514 


A1 *") 

012 








BYTE* 
ibl it 


1ft 




(1) 


OO/jlj 


A? A 

0j4 


U4U 






♦ R1W 


Unvn I T J 




7CC7 

3553 


















3jj4 


AA7C1 7 

00/^1/ 










litrUh 


71 


;n cad i nr 71 f wrrD ai thc unDn\ 


11/ 


AA7C4 7 

00?j1/ 


24/ 








AMA 


A 
H 


ftLK L~Dii ruh Ubt BY tUnnUN LUVb 


(1) 


AA7CJA 

00/520 


71 V 

31 j 


H 7 

21/ 


A7A 
030 




PAI t 


TiCDCUT 

lilrbnt 


*AUri Tift TLIC TiCDfiCTT ACCiitfTUf* CLfflDT ATlFiD 

jhNIJ BU inc. UtrUbl I HbbuniNb bnuht ftUDh 


(1) 


007523 


A71 

031 


AAA 

000 






tADDR 


74 

31 


*ArtriD Tfi DC 7ADDCri DACCm AC* TDATl TUP ADP 

fHUDR lu BE ZrPPlD rAbbEB Ho THAlLiNu 8Kb 


"7 ETC 

3555 


007525 










DEP0S 


32 


* P*! PATt t PIP* "T^k/TltP* TTU TiirtHT t mrST 1 ! \ 

» CLEAR L0C 32 (THE TTT INPUT sORD) 


(1) 


007525 


247 








ANA 


A 


5CLR "C-BIT" FOR USE BY COMMON CODE 


(1) 


007526 


315 


217 


030 




CALL 


DEPSHT 


iAND DO THE DEPOSIT ASSUMING SHORT ADDR 


(1) 


007531 


032 


000 






♦ADDR 


32 


5 ADDR TO BE ZAPPED PASSED AS TRAILING ARG 


3556 


007533 










DEP0S 


33 


iAND 33(THE TTY OUTPUT WORD) 


(1) 


007533 


247 








ANA 


A 


ICLR "C-BIT" FOR USE BY COMMON CODE 


(15 


007534 


315 


217 


030 




f*AI I 

CALL 


DEPSHT 


iAND DO THE DEPOSIT ASSUMING SHORT ADDR 


(1) 


007537 


033 


000 






.ADDR 


33 


$ ADDR TO BE ZAPPED PASSED AS TRAILING ARG 


3557 


















tS558 


007541 


A A < 

041 


A A A 

140 


AAC 

005 




LXI 


H»"0254C 


i 1 LOAD "HjL" WITH "JRST" OPCODE 


3j5V 


AA7C A A 

007u44 


AAO 

042 


A7Z 
0/6 


AAA 

040 




SHLD 


TNPBF2+3 rAND PUT INTO THE BUFFER WHERE THE ADDR IS 


3560 


















3j61 


AA7C A7 

00/54/ 


AOI 

021 


A77 
0/3 


AAA 

040 




LXI 


D»TMPBF2 


! ;nou set pointer to the instr 


3562 


007552 


315 


046 


017 




CALL 


EXINT 


iAND GO HANDLE JUST LIKE AN EXECUTE 


3563 


007555 


300 








RNZ 




5 IF N0N ZER0» THE EXECUTE FAILED 


3564 


















3565 


007556 










LONG* DELAY 1 


iNOU WAIT 


(I) 


007556 


041 


310 


000 




LXI 


H»200, * 1 5 SET UP THE TIMING COUNT IN HjL REG 


(1) 


007561 


315 


134 


014 




CALL 


LTLOOP 


iAND 60 DELAY ABOUT i SECOND FOR EACH (300 COUNT) 


3566 


















356? 










rAND N0y FALL INTO THE "CONTINUE" COMMAND 
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CMBS.M80 tU "CO" CMB ttt 



3569 










.SBTTL *tt *C0" CMB ttt 


3570 










? CONSOLE COMMAND TO ISSUE CONTINUE TO CPU 


3571 


007564 


315 


017 


007 


LulnO* LhLL 


bUUht 


ftiNitK UbtK nuilL 


3572 


AA*" iC / "I 

007567 


076 


005 




nvi 


Hf OS 


*nrT UTTC rnD 1 nnUTTiii IE* t G 1 ra lit 1 

fhfcl lulh ruh luNilNUt I KUH 


3573 


007571 


323 


14 1 

212 




miT 
UU1 


PD1 f PTf 
w r UL I L 


i****+ T /fl MOT •11*1/^ ***** 
f*^£*$ I/U MM ill*: /-J ***** 


"7C""J k 

3574 


007573 


A / *\ 

062 


1*7 4 

231 


AAA 

040 


CQINT5 STA 


CHKHLT 


» AND GAURANTEE THAT ANY FAST HALTS MILL 


3t»/j 
















3576 


007576 








PLINE 


KSPRMT 


JHANT TO TELL USER WHEN HE SWITCH MODES 


(1; 


007576 


77*} 

337 






RST 


3 


fPRINT LINE OF CHARS 


(i) 


007577 


ACT 

053 


037 




♦ABDR 


KSPRMT 


» BUFF TO PRINT 


3577 


007601 








PLINE 


U 


» SAY "USER MODE" 


(1) 


007601 


337 






RST 


3 


» PRINT LINE OF CHARS 


(1) 


007602 


006 


007 




,ADDR 


U 


5BUFF TO PRINT 


3578 
















3579 










SAND JUMP OFF TO COMMON CODE THAT CHECKS THE CONTINUE BIT 


3580 










>AND ERRS IF CONTINUE HAS NOT BEEN CLEARED BY THE CPU 


3581 


007604 


303 


061 


017 


JMP 


DNF 
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CHBS.M80 


%%% 


1HA1 

HA 


CHD *tt 








3583 










.SBTTL 


t*t 'HA' CHD m 


3584 










iCONSOLE C0HHAHD TO HALT THE SH10 CPU. .CPU HICRO-CODE SHOULD ENTER 


3585 










J THE HALT LOOP 






3586 


007607 


257 






HACHDt 


XRA 


A 


5CLR ACCUH FOR 'RUNS' EXECUTE* S "CONTINUE* 


3587 


007610 


323 


212 






OUT 


CPUCTL 


;**mi/o wrt 212/0 ttm 


3588 


007612 


303 


257 


016 




JMP 


HLTCH 


? AND FINISHES UP JUST LIKE "SH* COMMAND 


3589 


















3590 










.SBTTL 


ttt 'SH' CHD ttt 


3591 










5C0HHAND TO CAUSE THE T0PS20 MONITOR TO BEGIN AN ORDERLY SYSTEM SHUTDOWN 


3592 


007615 








SHCHDi 


M0V5B 




JHOVE US SOME DATA 


(1) 


007615 


347 








RST 


4 




(1) 


007616 


AAA 

000 








.BYTE 







3593 


007617 


053 


001 






.ADDR 


.DSBASE 


j FROM HERE (0f»776?00) 


3594 


007621 


04/ 


U4U 






♦ADDR 


DHDAT 


>T0 HERE. PLACE FOR DEPOSIT TO FIND IT 


3595 


















3596 


007623 










DEPOS 


30 


SAND DO IT 


(1) 


007623 


24/ 








ANA 


A 


JCLR "C-BIT* FOR USE BY COMMON CODE 


(15 


007624 


315 


217 


030 




CALL 


DEPSHT 


JAMB DO THE DEPOSIT ASSUMING SHORT ADDR 


(1) 


007627 


ATA 

030 


AAA 

000 






•ADDR 


30 


? ADDR TO BE ZAPPED PASSED AS TRAILING ARG 


3597 


007631 


315 


017 


007 




CALL 


SETUSE 


JNOW BE SURE HE ENTER THE USER MODE AGAIN 


3598 


007634 


006 


200 






HVI 


B ? "0200 


J SET SIGN BIT* CAUSES "KEEP-ALIVE* TO BE IGNORED 


3599 


007636 


315 


326 


032 




CALL 


STATEM 


JGO DO THE STUFF 


3600 


007641 


377 








.BYTE 


"0377 


» WITHOUT CHANGING THINGS 


3601 


007642 


303 


173 


017 




JMP 


COINT 


SAND GO BACK TO USER MODE TO HATCH MONITOR "SHUTDOWN' 
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3603 










♦SBTTL ttt "KL" IHD ttt 


3604 










fKLINIK C0HHANB 


3605 


007645 


332 


300 


017 


KLCHD* JC KLDIS ? DISPLAY CURRENT STATE IF NOTHING TYPED 


3606 












3607 










?ELSE assehble the typed in arg 


3608 


007650 


315 


244 


030 


CALL AR616* 5PERHIT 16 BIT HIDE TYPE IN 


3609 












3610 










t iini i nrritry that t mirTt mi r* Tf* a t r-n * i iitiuivrTj 

?N0H VERIFY THAT LOWER HALF IS A LEGAL NUHBER 


3611 


007653 


175 






unit a t m n it A! f Tn Arifiiii 

HOv ftf L ?L0 HALF TO ACCUH 


3612 


007654 


lAI 

24/ 






ANA A jbtl CONDITION CODES 


7Z1 7 

3613 


A A*? /CC 


312 


264 


A1 1 
01/ 


17 k'l ftCF *TT TVDETi 7CDfl f*n TiiDki ACT k**l TklTfc* 

JZ KLUrr fir lirtll ZtKu? uu lUKN urr KLINIK 


"11 'l A 

3614 












361u 










»jjnu rAI 1 TUDli LiCDr TT Tfl 1 UiiCT TiiDki fill TUC k'*f TklTk" 

?Nuw rflLL InhU HtKt ir ♦Itu If nUbi TUKN UN int KLINIK 


Hi I 

3616 


AA7£IA 
00/660 


062 


7AA 
300 


AAA 
040 


OTA k*'l 1 TUC Hi! *OCT BTT Tfi CAV TUAT k*l TKITk" T£ fik! 

bin fu.LlNt*UN fbtf Bit 10 bftT inni KLINIK IS UN 


361/ 


AA"7 / / *T 

00/663 


71 1 

311 






orT * Aiiri ni it 
Ktl ?AND uu 1 


Hi 

3618 


00/664 


A£1 

062 


7AA 
300 


AAA 

040 


wi nrr* ota k**i i Tkir ftki *pct uror tc* appiim uap 7cc«fi ?ac* tuc if-i tuti-* n Af* 

KLurr* Sir KLLINE*UN ?utT HERE IF ACCUn HAS ZERQf* ZAP THE KLINIK FLAG 


361? 












3620 










?AND FALL INTO CODE TO SEE IF THE END OF KLINIK HUST FORCE A CHANGE IN THE 


3621 










*f»TATr nr* Tiir* i/i tiiti** i Tiir* Attn mTTi ti~ Tr* tii iifirtr* ~t \\v \i\\ht rnrtrn- ni^m 

?bTATE OF THE KLINIK LINE AND USER* IE IF IN H0DE 3? »E HUST FORCE USER 


3622 










fINTO nuDE 2 


3623 


007667 


ATI 

072 


247 


AAA 

040 


LDA CSLH0DE ?8ET CURRENT NODE 


3624 


007672 


376 


010 




CPI *H0DE3 ?IS IT H0DE 3?? 


3625 


007674 


314 


101 


034 


CZ SETH2 iSET H0DE 2 IF NOT IN THERE 


3626 


007677 


311 






RET ?AND OUT 


3627 












3628 










5 HERE IF JUST WANT TO DISPLAY CURRENT KLINIK STATE 


3629 


007700 


072 


300 


040 


KLDIS! LDA KLLINE.QN J GET CURRENT VALUE 


3630 


007703 


247 






ANA A JSET FLAGS 


3631 


007704 


303 


374 


013 


JHP CHOOSE 5G0 DISPLAY THE APPROPRIATE HESSAGE 
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3633 

3634 007707 315 017 007 

3635 007712 

(1) 007712 337 
(1) 007713 053 037 

3636 007715 

(1) 007715 337 

(1) 007716 006 007 

3637 007720 072 247 040 

3638 007723 326 004 

3639 007725 362 101 034 

3640 007730 
3641 

3642 007732 311 

3643 

3644 

3645 

3646 

3647 

3648 007733 
3649 
3650 
3651 

3652 007735 332 375 017 

3653 

3654 

3655 007740 052 223 040 

3656 007743 021 262 040 

3657 007746 006 372 
3658 

3659 007750 176 

3660 007751 376 377 

3661 007753 310 
3662 

3663 

3664 007754 315 214 006 

3665 00775? 022 

3666 007760 023 

3667 007761 043 

3668 007762 004 

3669 007763 302 350 017 
3670 

3671 

3672 007766 176 

3673 007767 376 37? 

3674 007771 310 
3675 

3676 

3677 007772 

(1) 007772 337 

(1) 007773 344 037 

3678 007775 

(1) 007775 347 
(1) 007776 012 



.SBTTL ttt 'TT' CMD ttt 



CALL 


SETUSE 


?0N THIS CGnnANB WE ICbIRE THAT THE CTY ENTER USER nuDE 


PLINE 


KSPRHT 


* KS10,* 


RST 


3 


f PRINT LINE OF CHARS 


.ADDR 


KSPRHT 


*BUFF to print 


PLINE 


U 


i 'USR MOD" 


RST 


3 


» PRINT LINE OF CHARS 


.ADDR 


U 


J BUFF TO PRINT 


LDA 


CSLMODE 


» CHECK KLINIK STATUS - PUT IT INTO MODE 2? 


SUI 


.M0DE2 


IIS MODE LESS THAN MODE 2? 


JP 


SETM2 


5 NO - OK TO SET MODE 2 - SO GO DO IT 


CLRB 


KLNKSy 


} CLEAR KLINIK STATUS UORD - FORCE A REEXAMINATION OF 






1 OF THE SWITCHES ... 


RET 




5 NOW RETURN 



.SBTTL ttt 'Py CMD ttt 

5 COMMAND FOR SETTING A PASSWORD INTO THE 8080. SO THAT THE KLINIK LINE 
iUSER WILL HAVE SOMETHING TO MATCH AGAINST WHEN HE TRIES TO GET INTO THE SYSTEM 
PWCHB5 CLRB KLNKSW JON ANY PASSWORD COMMAND » FORCE A RE-EXAMINATION 
5 OF THE KLINIK MODE 

iNOW DO THE NORMAL STUFF U NEED TO DO WITH THIS COMMAND 
JC PW.CLR J IF NO PW TYPEDj GO CLR PASSWORD 

5FALL THRU ELSE.. IE MUST SET THE PASSWORD 

PW.SET! LHLD .ARG1 »GET POINTER TO THE TYPE-IN BUFFER 

LXI Di PASSWORD 5P0INT TO THE BUFFER AREA WHERE THE PASSWORD WILL BE 
MVI B f -6 5 SET A MAX COUNT FOR THE LENGTH OF THE PASSWORD 

PW.LOOPJ MOV A»M JCOPY A PASSWORD CHARACTER TO THE ACCUM 
CPI EOLCH f IS IT END OF LINE?? 
RZ 5 IF YES i SIMPLE RETURN 

» FALL TO HERE IF MORE TO BE MOVED 



CALL 


UP.LO 


i UPPER CASE ONLY 


STAX 


D 


JMQVE A CHARACTER TO THE SAVE BUFFER 


INX 


D 


J UPDATE DESTINATION POINTER 


INX 


H 


J UPDATE SOURCE POINTER 


INR 


B 


} UPDATE CHARACTER COUNT 


JN2 


PW.LOOP 


} STAY IN THE LOOP 



» FALL THRU WHEN DONE 6 CHRACTERS.. THAT HAD BETTER BE ALL» ELSE ERROR 
MOV AjM iGET 7TH CHARACTER 
CPI EOLCH J IT BETTER BE END 

RZ J IF YES> WAS END OF LINE* THEN OK TO RETURN 

»FALL THRU WHEN USER TYPED TOO MANY CHARACTERS 

PLINE PWLEN JERR MESSAGE 

RST 3 > PRINT LINE OF CHARS 

.ADDR PWLEN 5 BUFF TO PRINT 

PW.CLRJ CLRRM PASSWORB+i }CLEAR 5 BYTES OF THE 6 BYTE BUFFER 

RST 4 

.BYTE 10. 
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U) 007777 ,270 040 

367? 010001 053 

3680 010002 066 000 

3681 010004 311 
3682 



.ABDR PASSyORD+1+5 

DCX H {POINTER CAME OUT GOOD 

MVI H»0 fCLR THE 6TH BYTE OF THE BUFFER 

RET } THAT'S ALL 



VER 6.2 KS10 CONSOLE PR06RAH CROSS - HICRO PROCESSOR ASSEHBLER 6(315 3-HAY-79 16J50 PAGE 3-117 
CHDS.M80 ttt 'HK' i "UH* CHD tt* 



3684 










♦SBTTl 


tt* "HK" i 'UH' CHD ttt 


3685 










j CONSOLE C0HHAND TO HARK AND UHARK SPECIFIED HICRO-CODE LOCATIONS 


3686 


010005 


016 


000 




UnCfiDI 


Ul IT 


n a 

IfO 


jwE ARE CLEARING THE HARK BIT** 


3687 


010007 


303 


014 


020 




JHP 


HRKCH 


« Awn nAiti" tt An a f*i An r*nrt ihjat nr* Anr* ftnTiin 

?ANB B0 SAME IT AS A FLAG FOR »HAT mt ARE DOING 


3688 


















368? 


A 4 AA4 n 

010012 


A4 * 

016 


AA4 

001 




l4k'PMft ♦ 

nl\LnlU 




p. 1 


* a tjTT CAVC UIT APF CCTTTUfi TUC KAPk* PIT 

fH dI! bfl Tb »t Rht bt I 1 ifib Int nRhft pll 


7 ZfiA 

3690 


A 4 A A 4 k 

010014 


7AC 

305 






MDk'PU * 

nlmLfi » 


rUon 


p 


iCAUir »p,p« w tt mac riATA rnp qtt hp pi ctad 


7/ fH 

3691 


A* AA4 C 

010015 










Pity 




iTQ PPH PIIMMTKIR?? 


(1) 


A4 AA4 C 

010015 


7 47 

347 








PCT 

Kb 1 


A 
4 






010016 


AAZ 

006 








nyrr 


z 








A 4 A A 4. 7 

010017 


74 C 

31j 


77 i 

£31 


013 




Pfil i 
LRLL 




Mp-PTT 8 TQ PIP RH &QQrNP5i T 6 ipcAj P^H-MfTi&fQQ 
f it Di 1 10 ULf\* »uU HOOLnpLC. H LCUHL f\Hn Hyi<l\LOO 


36¥3 


A4 AAn 

010022 


61 j 


74 C 

31j 


A4 A 
014 




PAt j 


PPM Aft 


5Q1-T riTAHWHCTTP ATknPPQQ PCfJ 
fOti UiHuNUOiXlr HDUKLCJO l\tu 


36t4 


01 002 J 


71 C 

31j 


AAA 

204 


A1 1 

013 




pai 1 


PP1 


?ulVL Dirt DLL rULOL lU ut 1 L'HIH »nLr\L 1 LHn f\Lni? 


36?5 


















7/fi/ 

3696 


A4 AA7A 

010030 


076 


A 4. 7 

017 






HVI 


A»"017 


JGET FUNCTION READ FOR CRAH DATA THAT INCLUDES HRK 


3697 


010032 


315 


362 


014 




PAI i 


pcAr«p 




3698 


010035 


315 


315 


014 




PAf 1 


PPM ATI 


sen fiTARuncTTP A^nprcc prn 


3699 


A4 AA A A 

010040 


An 4 

021 


4 AA 

100 


AAA 

040 




I YT 

LAI 


tt f 1 nr 82 


iRCT PMTP TH TtATA TUAT UAC TUC HAPk* PTT 


77AA 

3700 


A 4 A A A 7 

010043 


7A4 

301 








pfip 


c 


futl IWblh ITrt 


77A4 

3701 


















3/02 


A 4 AAA 4 
010044 


A70 

032 








i TiAV 
LitHA 


ft 

D 


*rcT Tiir ArTiiAi tjATa 
jbtl int hLIuhL LihIh 


77A7 

3703 


A 4 A A A C 

010045 


7 4/ 

346 


77 i 

376 






AkiT 
HfU 


U3/6 


*PI CAD DTT A 


3704 


010047 


261 








nn a 

0RA 


n 

c 


*imu PTTHPn nr*T nc« ni par tijc riTT 

jNOW EITHER SET OR CLEAR THE BI1 


3705 
3706 


010050 


022 






HRKRT5 


STAX 


D 


5 BUT DATA BACK> NEW HARK BIT STATUS 


3707 


















3708 


010051 


315 


176 


033 




CALL 


ADATP 


f WRITE DATA TO BUS RES 


3709 


















3710 


010054 


076 


007 






HVI 


Ar7 


JNOy WISH TO DO FUNCTION WRITE 7 


3711 


010056 


062 


010 


040 




STA 


CRHFN 


JSET INTO FUNC WORD 


3712 


















3713 


010061 


303 


271 


014 




JHP 


WFNC1 


JAND FINISH UP BY WRITING DATA BACK 
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171 ^ 
OflO 










♦SBTTL m "ZM 


» CMD *** 


771 A 
0/10 










'CONSOLE COMMAND TO ZERO THE SM10 MOS MEMORY.. 


771 7 

Oflf 


Ai AA£ A 
010064 








InLnU* LLKKn 


nLnHU 


5 PI CAD MCMfiDV AririDfTCC 0! iCETD / TH CTADT AT 

fUxBH ntnUKT HULtKtbb currtKUU oimKI hi 


\1 J 


Ai AA£ A 
010064 


7A7 






DOT 

hot 


4 




\1 J 


A1 AAiS 
01 0063 


Ai 
012 






♦ silt 


1 A 

10* 




i i \ 

u; 


A 4 AAZi 

010066 


AO A 
024 


AAA 

040 




» Hi* L*i\ 


ntnHUtj 




3/10 


A4 AATfA 


A7Z 
0/6 


A AO 

002 




nvl 


A. 
Hf 2 


SDTTC Tn OAV I.IDTTC TVDC CHilf-TTnid 


7710 
3/1? 


A 4 AA70 


AZO 

062 


A07 

023 


A4A 

040 


CTa 
OIH 


ntnHUT4 


iUDTTC TWTi7 TUC *DiirrrD 


770A 
3/20 
















77*71 
Of ll 


vlvv/D 










IiniiH I 


SFiATA TH THTDnCTT TC AI I 7CDHrO 


i 1 \ 


A1 AA75 
0100 Aj 


7A7 
34/ 






DOT 


A 




/ 1 \ 


A1 AA7A 
VlUU/O 


A1 
012 






* XT* I It 


1 A 
lv» 




/ 1 *t 
\ 1/ 


A1 AA77 


A5A 


AAA 










7700 
















77*57 

Of £.0 


VlVivi 








In f Xin 




7 ImCAilnL nUi'L Un 


\ I ; 


A1 A1A1 
UiVivi 


7*77 
0£f 






DCT 

i\0 I 



£. 


fUU Oti l!1!Ci\riHL nUi>L 


Of 


A1A1 A7 
UlvlViL 




77A 


A17 
V14. 


L-iiLL 


fiMI 


JI'LruDil LLrWiLO lRIU rlnOi LUbnliUn 


770R 

07 £3 


A1 A1 A*% 


715 
OiJ 


A 55 


A77 
VOO 


LTll » bnLL 


InwOO 


f 1 U RLA i HULmLOO 


Of £.0 


ViVilv 


A17 
VI/ 


AAA 
V*lV 




.ADDR 


MEMAD 


'HERE IT IS 


7707 
















7770 
Of Lu 


A1A117 
Vlvil£ 


A71 


A17 
VI/ 


AAA 
V*lV 


LXI 


DjMEMAD 


JBO PART OF THE DEPOSIT HEREj FOR SPEED 


77*70 

of £1 


A1 A1 1«S 
OlOllJ 


715 
31D 


1/6 


A77 
033 


CALL 


ADATP 


"LOAD UP BUS REGS UITH THE DESIRED DATA 


777A 
0/30 


A1 A1 OA 
010120 


A7Z 

0/6 


AAA 

004 




HVI 


A>4 


*N0W FUNCTION TYPE BIT INTO ACCUM 


7771 
3/31 


ai A1 oo 
010122 


777 

323 


i i 5 
liJ 




OUT 


BUSARB 


mm 1/0 mrt ***** 


7771 

3/32 
















7777 
Of 00 


Ai A10A 
010124 


71 c* 

31j 


07 A 

2/4 


A1 O 

012 


CALL 


DHGO 


»N0a GO DO THE DEPOSIT 


111 A 
3/34 
















111V 

O/OO 










f AND CHECK TO SEE IF GOT A NXM 


1"11L 
0/00 


Ai AI 0*7 

01012/ 


A70 

0/2 


134 


AAA 

040 


LDA 


ERRCD 


'GET ERROR CODE.. 


1111 

Of of 


A*. Ai in 

Q1Q132 


247 






ANA 


A 


i CHECK IF SET 


3738 


010133 


312 


105 


020 


JZ 


ZMI 


»IF NO ERRORS YET» KEEP GOING 


373? 
















3740 










'FALL THRU HHEN HAD 'NO DATA ACNOULEDGE' ERROR 


3741 


010136 








INT0FF 




'CLEAR INTERNAL MODE 


U> 


010136 


367 






RST 


6 


iGO EXIT FROM INTERNAL MODE 


3742 


010137 








ENDCMD 




'AND DONE 


(1) 


010137 


311 






RET 




i RETURN TO CALLER 
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3744 
3745 
3746 
3747 
3748 
3749 

3750 010140 

3751 010143 

3752 010144 

3753 010147 

3754 010152 

3755 010153 

3756 010156 

3757 010157 

3758 010162 
3759 

3760 010165 
3761 

3762 010170 

3763 010171 

3764 010172 
3765 

3766 

3767 010175 

3768 010176 

3769 010177 
3770 

3771 010202 

3772 010205 

3773 010206 



♦SBTTL ttt "RP* CHD **$ 



J NOTE? THE LIST 
i ADDRESS FORHAT 
SHI ORDER PIECE 
»L0 ORDER PIECE 



RP05 



OF SAVED COMMAND DISPATCHES IS NOT IN THE NORMAL 8080 
..IE THE COMMAND LIST IS SAME IN PAIRS OF BYTES AS 
FIRST*. 
SECOND.. 



322 165 020 
257 

062 160 040 

315 307 020 
257 

062 157 040 
057 

062 213 040 

303 211 020 



315 244 030 RPlt CALL ARG16. > FETCH THE ARG THAT UAS TYPED 



JNC 


RP1 


5 IF ARG » BEGIN AT A SPECIAL PLACE 


XRA 


A 


5CLR ACCUM 


STA 


RPCNTR 


5 THERE IS NO REPEAT COUNT 


CALL 


RPFOO 


JIN THE BEGINNING YOU MUST RESET THE POINTERS 


XRA 


A 


»CLR ACCUM 


STA 


RPEND 


JCLR THE REPEAT KILLER 


CMA 




JMAKE ACCUM ,EQ. -1 


STA 


RPTON 


i THAT REPEAT FUNCTION IS TURNED ON 


JHP 


RP2 


5 CONTINUE... 



174 
247 

302 150 032 



175 
074 

303 144 020 

072 157 040 
247 

302 247 020 



HOV A»H JIT HUST ONLY BE 256 OR LESS 

ANA A fSET PROCESSOR FLAGS 

JNZ KILNM »IF .GT. 256 > THEN BAD NUMBER 

?FALL THRU IF ACCUM 

MOU AfL J GET REAL ARG INTO ACCUM 

INR A jSET ACCUM 1 GREATER THAN ACTUAL 

JHP RPO {CONTINUE BY INITING FLAGS 

RPTRTN5 LDA RPEND {NEXT THING IS TO SEE IF TIME TO STOP REPEAT 

ANA A JTEST DATA 

JNZ RP.OUT iAND END THE REPEAT IF "END" FLAG IS SET 
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37/5 


A4 AH 4 

010211 


AC'S 

052 


*\A 4 

2n 


AAA 

040 


RP2J 


LHLD 


RPL8T 


3776 


010214 


176 








M0U 


Af M 


3777 


010215 


074 








IHR 


A 


3778 


010216 


302 


254 


A1A 

020 




1117 

JNZ 


RF4 


3779 
















3780 


A 4 A *\*\ 4 

010221 


072 


160 


040 




I 1*t A 

LDA 


RFCNTR 


3781 


A 4 Ain A 

010224 


74 k 

314 


7AT 

307 


AHA 

020 




P7 

LZ 


RPFuU 


3782 


A4 Aim 

010227 


A 7 

247 








A W A 

ANh 


A, 

A 


3783 


A 4 AHA 

010230 


312 


202 


020 




JZ 


RFTRTN 


3784 
















3785 


010233 


075 








DCR 


A 


3786 


010234 


062 


160 


040 




STA 


RFCNTR 


7 *?£57 

3787 


A4 A17"3 

010237 


77 I 

3/6 


AA4 

001 






CPI 


1 


3788 


A4 A1 A 4 

010241 


7A A 

304 


307 


A1A 

020 




CN2 


RFFQ0 


378? 


A4 Anil 

01Q244 


302 


OA'S 

202 


AOA 

020 




JNZ 


DDTDTU 

RFTRTN 


7"?OA 

o/VO 
















3/yl 


A4 An**? 

01024/ 


2j/ 






RP.0UT! XRA 


A 

A 


3/92 


A4 A1CA 

0102j0 


AiT 

062 


Ol 7 

213 


AAA 
040 




STA 


DDTflki 

KrTUN 


4/7,5 


U1u2JiS 


71 i 
Oil 








RET 




770A 

tS/V4 
















3/7 J 


A4 AWi 

010234 


126 






RP4J 


MOV 


Ti U 


3796 


A4 A1CC 

010255 


043 








INX 


H 


3/7/ 


a 4 Antr/ 
01 02 JO 


136 








MOV 




3798 


A4 Ain 

010257 


A A7 

043 








INX 


H 


379? 


A4 A1 / A 

010260 


Ain 

042 


211 


040 




SHLD 


RPLST 


3800 
















3801 


010263 


041 


340 


001 




LXI 


H.NULLI 


3802 


010266 


345 








PUSH 


H 


3803 


010267 


353 








XCHG 




3804 
















3805 


010270 


174 








MOV 


AtH 


3806 


010271 


247 








ANA 


A 


3807 


010272 


362 


301 


020 




JP 


RP60 



.get pointer to command dispatch list 
f check byte,, make sure its not the enb-qf-list 
5if it was -if now its a zero 
.and go back too 

j check if this is a counted repeat 

!it has end of list if u got here, so fix pointers 

fSET FLAGS 

I IF ,EQ. NO COUNT ON THE REPEAT 

» THERE IS A COUNTERS DOWN IT 

iSAVE NEW COUNT 

5 SEE IF AT B0TT0H LINE 

5 IF A COUNTED REPEAT? FIX END OF LIST ONLY IF MORE TO DO 
UUNP IF NO 

s CLEAR ACCUM PRIOR TO LEAVING 
.TURN OFF THE 'ON' FLAG 
>AND HERE IF YES 

.IF IT WAS OK,. START ASSEMBLING THE DISPATCH 
.UPDATE TO LO ORDER PIECE 
.AND DISPATCH IS NOW IN "BiE* 
.UPDATE POINTER 

.SAVE POINTER TO WHERE WE ARE IN CMD LIST 

.*H»L' GETS PLACE WE WANT TO RETURN TO 
JPLACE ON STACK SO THAT 'RET* INS COMES HERE 
.DISPATCH ADDRESS INTO , HiL' 

.GET HI ORDER PIECE OF ADDR TO SEE IF AR6 
I WAS TYPED WITH THIS COMMAND,, SET FLAGS 
5 IF SIGN BIT CLR. CMD GOT NO ARG 
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7GA0 










jufnthttlbt fit 


3810 


010275 


346 


A "3"? 

177 




ANI 


3811 


010277 


147 






HOU 


3812 


010300 


067 






STC 


3813 


010301 


077 






RP605 CHC 


3814 


010302 


351 






PCHL 


3815 












3816 










»IF REACHED E 


381? 










5 THE POINTER 


3818 


010303 


057 






RPNEW5 CHA 


3819 


010304 


062 


131 


040 


STA 


3820 


010307 


041 


001 


041 


RPFOOJ LXI 


3821 


010312 


042 


211 


040 


SHLD 


3822 


010315 


041 


032 


041 


LXI 


3823 


010320 


042 


207 


040 


SHLD 


3824 


010323 


311 






RET 



iOTHERVISE MUST SET THE C-BIT TO TELL CMD TO LOOK FOR ARG 
"0177 iCLR SIGN BIT 
HiA 5PUT IT BACK FOR CORRECT BISPATH 
jSET C-BIT IF NECCESSARY 
5 SET C-BIT FOR THIS COMMAND TO SEE 
f AND GO DO IT,. 

OF THE DISPATCH LIST* THEN THIS CODE RESETS 
CK TO THE BEGINNING OF THE LIST 

IRPFOO DOESNT TOUCH ACCUM» SET ACCUM TO -1 
CMDS.. JNOy ZAP THE FIRST IN LINE FLAG 
HjRPINI .BUFFER BEGINNING ADDRESS 
RPLST 5PUT BACK INTO RAM 
HiRPTBFI j POINTER TO DATA BUFFER 
RPBUFS } RESET INTO HOLDING LOCATION 
SAND RETURN 
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CHDS.H80 


%%% 


"DS' CHD *** 






3826 










♦SBTTL ttt 'US' CHD *« 


3827 










r COMMAND TO SELECT N0N 


DEFAULT DISK UNIT AND UNIBUS ADAPTERS FOR BOOTING 


3828 










JFR0H DISK 






382? 


010324 








DSCHD! PLINE 


Q.UBA 


» MESSAGE TO ASK FOR 'UNIBUS ADAPTER* TO BE USED 


U) 


010324 


337 






RST 


3 


i PRINT LINE OF CHARS 


(1) 


010325 


252 


037 




.ADDR 


Q.UBA 


» BUFF TO PRINT 


3830 


010327 


315 


160 


021 


CALL 


PICKUP 


!G0 FETCH THE RESPONSE THAT WAS TYPED 


OQOl 


A1 fill*} 


332 


74=; 




JC 


SSI 


5 IF NOTHING TYPED j LEAVE UBA AS CURRENTLY SELECTED 


3832 
















3833 










5 FALL INTO HERE IF A NEW UBA NUMBER HAS TYPED 


3834 


010335 


A*7fi 
Q/l 


100 


040 


LJL'ti 


i Mr i?£. 


JRR6R THF NFtl URA NIIMRFR A<? TYPFD 


3835 


010340 


AA"7 
00/ 












3836 


010341 


AA"7 

00/ 






ri r 






3837 


010342 


A/ 1 "* 

062 


357 


040 


O I n 


UimUDn 


mnU wHYu i HE. nuw vni-UL. in int. i\nlt 


3838 
383? 


010345 








T|Q1 * pt Twr 

LfQ I ♦ l L i nc 


w*i\n 


t&SR' Fflft &U RH11 Tfi IISF 
ynuiS rui\ hr r\nix tu U3u 


(15 


010345 


337 






RST 


3 


j PRINT LINE OF CHARS 


(1) 


010346 


261 


037 




.ADDR 


Q.RH 


5BUFF TO PRINT 


3840 


010350 


315 


160 


021 


CALL 


PICKUP 


iGET WHAT WAS TYPED 


3841 


010353 


332 


364 


020 


JC 


DS2 


5 IF NOTHING TYPED » DO NOTHING 


3842 
















3843 


010356 








H0V5B 




iNOU SAME THIS NEW DISK BASE 


(1) 


010356 


347 






RST 


4 




(1) 


010357 


AAA 

000 






♦BYTE 







3844 


010360 


1 AA 
100 


040 




.ADDR 


THPB2 


5 THIS IS WHERE THE DATA SHOULD BE SITTING 


3845 


010362 


374 


040 




. ADDR 


DSBASE 


5 THIS IS WHERE WE WILL KEEP IT 


3846 
















3847 


010364 








DS25 PLINE 


Q.UNIT 


5 ASK FOR A UNIT NUMBER TO BOOT FROM 


(1) 


010364 


337 






RST 


3 


iPRINT LINE OF CHARS 


(1) 


010365 


273 


037 




.ADDR 


Q.UNIT 


5 BUFF TO PRINT 


3848 


010367 


315 


160 


021 


CALL 


PICKUP 


IGQ FETCH WHAT WAS TYPED 


384? 


010372 


330 






RC 




JIF NOTHING TYPED* THEN ALL DONE. RETURN FROM THIS 


3850 
















3851 










» FALL TO HERE IF A UNIT WAS TYPED.. 60 SET THE UNIT TO BE USED 


3852 


010373 


072 


100 


040 


LDA 


TMPB2 


?GET NUMBER TYPED FOR THE NEW UNIT 


3853 


010376 


062 


132 


040 


STA 


UNITNM 


?SET IT INTO RAH AS THE NEW VALUE 


3854 


010401 


311 






RET 




J ALL DONE THIS COMMAND.... 
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OOJO 










♦3BTTL 


tit "HS* CHD *** 


70C7 
3uj/ 










fCOKNAKD TO SELECT WHAT HAGTAPE TO BOOT FROH 


TOCO 

3858 


A 4 A* AO 

010402 








HSCMDJ 


PLINE 


QtUBA 


5ASK FOR A UNIBUS ADAPTER TO LOAD FROH 


(1) 


A4 A AAI 

01040^ 


337 








RST 


3 


i PRINT LINE OF CHARS 




A4 A AA7 

010403 


oco 
252 


A77 

037 






♦ADDR 


QtUBA 


» BUFF TO PRINT 


38b? 


A 4 A A AC 

010405 


74. C 

315 


i £A 

160 


A11 

Oil 




CALL 


PICKUP 


5 GET WHAT WAS TYPED 


im a 

3860 


A4 A A 4 A 

010410 


770 

332 


A07 

023 


AO< 

021 




JC 


HS1 


{IF NOTHING? LEAVE UBA ALONE.. GO GET THE NEXT THING 


3861 


















70 zo 
3o&2 










5 FALL INTO HERE IF A NEH UBA WAS SELECTED 


70 £7 

3o63 


A1 AA1 7 

010413 


A70 

U/2 


1 AA 

lou 


A^A 

040 




! FiA 


TMPR9 


ifiFT THF NFU 1IR6 TYPFft 
? uc i t nc new Uen 1 i r CU 


3o64 


A1 HAiA 


AA7 
VV/ 








&l P 
l\Llf 




iiifiii MIIMRFRS MIRT RF lilSTTFTFfi (\H RYTF RnilNMR'Y *4 


70. 

3o6vJ 


A1 AA17 


AA7 
Uv/ 












iTflKF^i Tun SHTFTC Tfl SFT THF IIRA NilMRFR 


7QAA 
ODOO 


Ai A AO A 


AAO 
Uo2 


75A 


AAA 




Of H 


n f HUCH 


fOHVt. Inc. PILW UCH VfiLUL in InL f\HFi 




















uOQO 


Vlv*t£.vl 








noi * 


pi twf 


u*i\n 


fHO!\ rui\ H RLw s\nll iu UOL 


Kit 




Ou/ 








RST 


3 


{PRINT LINE OF CHARS 




Ai AAOA 
010424 


Oil 

261 


A77 
U3/ 






.ADDR 


Q.RH 


{BUFF TO PRINT 


386y 


A1 AjIOZ 

010426 


71 C 

315 


1 £A 
160 


A01 

021 




CALL 


PICKUP 


{FETCH WHAT HAS TYPED 


707A 

3o70 


A1 AA71 

010431 


770 

332 


AAO 

042 


A01 

021 




JC 


MSI .5 


{IF NOTHING TYPOi THEN DO NOTHING 


7G71 
38/ 1 


















7070 

3o72 


(Sift AT A 

010434 










H0M5B 




!IF SOMETHING TYPED? GET IT FROM THE BUFFER 


/ 4 \ 
(1) 


A4 A At A 

010434 


7 A"? 

347 








RST 


4 




/ 4 \ 

u) 


A4 A ATE" 

010435 


AAA 

000 








.BYTE 







Til "3 "7 

3873 


A4 ait; 

010436 


4 AA 

100 


AAA 

040 






♦ADDR 


TMPB2 


{PLACE HHERE THE STUFF HAS PUT 


mi a 

3874 


A4 A A AA 

010440 


367 


AAA 

040 






♦ADDR 


MTBASE 


{PLACE WHERE HE KEEP THE MAGTAPE BASE REG 


Til "JET 

3875 


A4 A A AI 

010442 








KS1.5J 


PLINE 


Q.TCU 


{GO ASK FOR A UNIT NUHBER 


(1) 


010442 


337 








RST 


3 


{PRINT LINE OF CHARS 


(1) 


010443 


303 


037 






♦ADDR 


Q.TCU 


{BUFF TO PRINT 


3876 


A 4 A A AC 

010445 


TP 4 C 

315 


4 / A 

160 


An 4 

021 




CALL 


PICKUP 


»G0 SEE UHAT HAS TYPED 


7Q77 
38// 


0104D0 


770 

332 


AZ1 

061 


A01 

021 




JC 


MS2 


{IF NOTHING TYPE? LEAVE VALUE ALONE,. GO AROUND THIS. 


7070 

3o /o 


















7070 
3077 










JFALL TO HERE IF NEED TO SET A NEU UNIT NUHBER 


700A 

3oo0 


A4 AAC7 

0104D3 


A70 

0/2 


i AA 
100 


AAA 
040 




LDA 


TMPB2 


{GET HHAT HAS TYPED 


700-I 

3881 


Ai A AC/ 

0104uo 


AZO 

062 


1 77 
13/ 


AAA 

040 




STA 


TAPEUNIT ISET IN THE NEW UNIT NUHBER 


3882 
3883 


010461 








HS2J 


PLINE 


Q.DEN 


{NOV GO SEE HHAT DENSITY TO SET FOR THE HAGTAPE 


(1) 


010461 


337 








RST 


3 


{PRINT LINE OF CHARS 


(1) 


010462 


312 


037 






♦ADDR 


Q.BEN 


JBUFF TO PRINT 


3884 


010464 


315 


172 


021 




CALL 


INBUF 


{UPDATE BUFFER POINTER. THIS CASE IS DIFFERENT THAN 


3885 
















{THE OTHERS ♦. HE NEED TO EXAHINE ASCII. NOT OCTAL 


3886 


010467 


332 


131 


021 




JC 


HS3 


{BUT IF NOTHING TYPED? GO ASK FOR A NEH SLAVE 
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7P0Q 
0000 










5 FALL THRU IF NEED TO SET A DENSITY,..* 


7QQQ 
0007 










$N0U H»L REG POINTS TO THE STRING JUST TYPED IN 


7GOA 

ooYO 


A< AA70 

0104/2 


34o 






PUSH 


H J SAVE POINTER TO THE TYPED IN BUFFER 


38? 1 


010473 


AOI 

021 


1 A7 

147 


AO 4 

021 


LXI 


DjEIGHTO ?GET POINTER TO THE '800' LIST 


7000 

38?2 


010476 


31o 


7AO 

302 


A77 

033 


CALL 


STRCMP JNOa DO A STRING COMPARE 


7007 

3893 


A4 ACA< 

010501 


7AO 

302 


110 

112 


A01 

021 


JNZ 


S16CHK ilF HAS NOT AN 'HOfl'i SEE IF ITS A *1600" 


700.A 

3894 














700^ 
0O7J 










JOK» IT HAS 800., NOy SET UP THE CHANNEL DATA TO SAY 800 DPI TAPE 


700 1 
5070 


A 1 ACTA A 


A7Z 
U/0 


AAO 




MUT 


5&0TQ thc rn&ppri rnrir me baa pot 

ftlc fn £. ID Int. UUfUULlft UUUC, rim OW Br i 


78Q7 
007/ 


A1 A r »AA 
ViVJvO 


7A1 






PftP 
rur 


n fir Ovv uni Until? InLn UlXRn Ur inL DlRUS 


7000 
007G 


A1 A5A7 
vivJv/ 


7A7 
OvO 


1 0A 


AOI 


IMP 


mqo cr *nn TO MFYT PMPPfc' 

nOi.# J JUU i U RLA I WilLlrlX 


7000 
0077 














70AA 
07vv 


A1 A-^l^ 


741 






S16CHK5 POP 


H ?6ET POINTER TO THE TYPED IN STUFF 


79A1 
OYvi 


At A^17 
vlvoiO 


A*>1 


1^7 
ioO 


A^1 


LXI 


DjSIXTN i MATCH AGAINST *1600' 


7QA0 
07v£ 


A1 A c .1 1 
UiVJiO 


71 ^ 
01 J 


7A0 
OvZ 


A77 
UOO 


CALL 


STRCMP ?D0 THE STRING COMPARE 


70A7 
07U0 


A1 A^OI 


7A0 
0U2 


15A 
I DO 


A70 
Uo2 


JNZ 


KILNM }IF UAS NOT 1600» THEN IT MAS BAD 


7QAA 














lOAC 










i IT SJAS 1600 » 


SO SET THE RIGHT THING FOR TAPE BPI 


70AA 
OYUo 


A1 A^OA 


A7X 

U/o 


AAA 




MVI 


Ai4 iTHIS IS THE CODE FOR 1600 BPI 


70A7 
07V/ 


A1 ASO/, 


A£0 

062 


7£7 
000 


AAA 

040 


MS2.5J STA 


DEN.SLV+1 5 SET THE BYTE IN THE CHANNEL DATA UORD 


70AG 
07V0 














7GAG 
390? 


A -4 AC74 

01uo31 








MS35 PLINE 


Q,SLM iASK FOR A NEW SLAVE DEVICE 


M \ 
U) 


A 4 AC"?"! 

UlOool 


77*7 

00/ 






RST 


3 i PRINT LINE OF CHARS 


/■IV 

11/ 


A1 A570 


700 

022 


A77 
UO/ 




,ADDR 


Q,SLV 5 BUFF TO PRINT 


701 A 


At fi e ,1A 


745 
OiJ 


1 AA 

loU 


A01 

U21 


CALL 


PICKUP i FETCH WHAT UAS TYPED 


7Q1 1 

3V11 


UlOooV 


77A 

330 






RC 


»IF NOTHING TYPED » THEN UE ARE ALL DONE 


3912 














3913 










?ELSE FALL TO HERE TO GET THE SLAVE 


3914 


010540 


072 


100 


040 


LDA 


TMPB2 ? GET THE NUMBER 


3915 


010543 


062 


362 


040 


STA 


DEN.SLV »SET THE BYTE AS REQUIRED 


3916 


010546 


311 






RET 


» AND ALL DONE 


3917 


010547 


070 


060 


060 


EIGHTO! .ASCIZ /BOO/ IFOR 800 DPI TAPES 


3918 


010553 


061 


066 


060 


SIXTN, .ASCIZ 71600/ 1 STRING FOR 1600 BPI TAPES 
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3920 
3921 
3922 
3923 
3924 

3925 010560 

3926 010563 
3927 

3928 

3929 010564 
(1) 010564 
(1) 010565 

3930 010566 

3931 010570 

3932 010571 
3933 

3934 

3935 010572 

3936 010575 

3937 010576 

3938 010601 

3939 010604 
3940 

3941 010607 

3942 010612 
3943 

3944 010615 

3945 010620 

3946 010623 

3947 010626 



315 172 021 
330 



347 
010 

100 040 

257 

311 



041 204 040 
065 

315 160 010 

052 215 040 

042 223 040 

041 215 021 
303 340 001 

052 223 040 

315 245 033 

042 223 040 
303 344 032 



iSOME SUBROUTINES FOR USE BY THE DEVICE SELECT COMMANDS 
> FIRST A ROUTINE TO READ IN A NUMBER TYPED IN ANSWER TO AN 8080 QUESTION 
J AND SAME THE NUMBER TYPED IN THE 36 BIT BUFFER "TMPB2" , RETURNS C-BIT CLEAR 
J IF A NUBER HAS GATHERED AND STORED IN , TMPB2 , ( RETURNS C-BIT SET IF NOTHING 
JWAS TYPED, 

PICKUPS CALL INBUF 5 SET UP THE INPUT BUFFER TO THE CURRENT TYPEIN. 
RC .RETURNS HERE WITH C-BIT SET IF NOTHING TYPED 

IGET HERE IF SOMETHING WAS TYPED,, GO GET IT AND PUT IT IN "THPB2* 



ARG36 

RST 

,BYTE 

,ADDR 

XRA 

RET 



4 

8 

TMPB2 
A 



i GATHER A 36-BIT ARGUMENT 



I PUT IT IN THIS BUFFER 

J CLEAR C-BIT BECAUSE ALL HAS 

5 ALL DONE 



» SUBROUTINE TO FIX UP THE BUFFER POINTERS IN THE INPUT BUFFER 

INBUFJ LXI HfEOL »GET POINTER TO END-OF-LINE COUNTER 

ICR M ISO CAN DECREMENT 

CALL BFRST JRESET TTY INPUT POINTERS 

LHLD BUF, JFIND THE BEGINNING OF BUFFER 

SHLD ,ARG1 »AND SET IT AS THE POINTER TO THE FIRST ARG 

LXI H.INRDY JPASS A RETURN ADDRESS IN HrL 

JMP NULLH » ENTER TTY INPUT HAIT 

INRDY5 LHLD ,ARG1 5 GET POINTER TO THE START OF THE NEU DATA 

FNDARG5 CALL SEPCHR J EAT UP ANY NO-OP SEPARATORS 

SHLD ,ARG1 ? REPLACE THE POINTER 

JMP EOCML 5 CHECK IF AT END-OF-LINE, C-SET IF YES* IE NO ARG) 
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70 AO 
0747 










♦SBTTL m 'BT 8 CHB *** 


07 JU 


000077 






INDIRECT="077 


"TftIT3 


010631 








BOOTS PLiNE 


BTHS61 ? INCLUDE A nESSABE SO THAT USERS Mm U K BOOTINb 


(1) 


010631 


337 






RST 


T *P*FiTiiT i Till"* ftf* IMIAfrf* 

3 , PRINT LINE OF CHARS 


(1) 


010632 


140 


037 




,ABDR 


BTMSG1 5 BUFF TO PRINT 


3952 


010634 








BTAUTi PCRLF 


5 AND KEEP IT ON ONE LINE 


(2) 


Ulyoo4 


7J17 
04/ 






RST 


4 


(2) 


UlUOOJ 


AAO 






.BYTE 


2 


3?D0 


A1 AA1A 
UivoOO 


A7A 
U/O 


010 




HVI 


A, "010 >BIT 32 IN TENLAND TO SAY THIS WAS A BOOT BUTTON LOAD 


07U4 


A1 AAAA 


AA^ 


loo 


AAA 

v4U 


STA 


GOCODE J SAVE IN THE 'GO CODE' PLACE 


70^ 
0700 


A1AAA7. 
vl vO*tO 


AA7 
vO/ 






STC 


»FALL THRU TO A 'BT' 


IQSA 
0700 














070/ 


Q10A44 

ViVU"" 


315 


Oi.0 


A91 


BTCHDi CALL 


BTCHOICE 5 GO SELECT MONITOR OR DIA6 PRE-BOOT 


0700 
7050 


vlvyf / 


11S 


9A1 
&00 


AOO 


BT.SRC? CALL 


HICROP ? READ THE PAGE OF FILE POINTERS INTO MEMORY 81000 


0707 

1QAA 
OTuv 










> WHEN GET TO HERE, THE PAGE HAS BEEN READ IN, 


70A1 


A1 A AS** 
vlvOO*. 


770 

00*. 


l/o 


A70 
UOi 


JC 


C.BTERR 5 ERROR IN BOOT PROCESS DURING MICRO-CODE LOAD 


70X0 














7Qi7 
OYoO 


A1 A ASS 
VlvOOO 


01 J 


AA7 


A07 

silo 


CALL 


DMEH2CRAH J LOAD DATA FROM MEMORY INTO CRAM 


07 64 














70Z5 
0700 














70/ Z 
0700 










1 FALL THRU IF DONE THE CRAM LOADING PORTION 


7DZ7 
070/ 










INOW MUST READ IN THE BOOT CODE ITSELFiSTART THE SM10 MICRO-CODE 


3968 










iANB THEN START THE BOOT PROGRAM AT ADDRESS 1000 


3Y07 










5N0W SET UP DISK POINTERS TO POINT TO BOOT BLOCK OF DISK, 


7 07 A 










f IN ORDER THAT WE LOAD THE MONITOR BOOT 


7G71 
07/1 


010660 


315 


177 

If 7 


uzl 


LB.GQJ CALL 


LBINT JGO READ-IN THE APPROPRIATE BOOTSTRAP 


3972 


010663 








LB, 801 J M0V5B 


J SET UP A START ADDRESS 


(i) 


010663 


347 






RST 


4 


(1) 


010664 


000 






.BYTE 





3973 


010665 


244 


022 




.ADDR 


MA1000 } MEMORY ADDRESS 1000 FOR STARTING PROGRAM 


3974 


010667 


073 


040 




.ADDR 


TMPBF2 »SET UP SO START COMMAND CAN FIND THE ADDRESS 


3975 














3976 










J TEMP CODE FOR FIGURING OUT HOW TO MAKE THE INTERNAL START CODE WORK 


3977 


010671 


303 


113 


017 


JMP 


STINT ,60 START THE MACHINE WITH MONITOR BOOT 
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3979 

3980 010674 

3981 010677 

3982 010702 

3983 010705 

3984 010706 

3985 010707 
3986 

3987 010712 
3988 

3989 010715 
3990 

3991 010720 

3992 010723 



315 326 021 

021 000 002 

072 172 040 
203 
137 

315 266 022 

332 231 032 

315 347 021 

052 132 040 

303 074 022 



.SBTTL ttt *LB* CHD ttt 

LBCHBJ CALL BTCHOICE J IF ARG GIVEN, GO SET UP A CHOICE FOR THE BOOTING 

LBINTJ LXI B f "01000 f ALL POINTERS START AT 1000 

LDA RM100 fGET THE OFFSET AS SELECTED (HON OR DIAG PRE-B0QT5 

ADD E j ADD LO ORDER TO THE OFFSET 

MOM Ei A 5 PUT IT BACK 

CALL FILEINIT ?REAB IN POINTERS TO THE "PRE-BOOTS" 

JC L.BTERR i ERROR IN LOADING THE PRE-BOOT 

CALL BT.60 j START UP THE MICRO-CODE I INTERNAL OFF 
INOW PASS ADDRESSES OF RH BASE & DRIVE * TO THE PRE-BOOT PROGRAMS 
INFOBTl LHLD UNITNM 5 UNIT NUHBER INTO HL REGISTER 

JMP PASSSRC 5 ROUTINE WHICH URITES LOCS 36,37 I 40 



VER 6,2 KS10 CONSOLE PROGRAM CROSS 
CMBS.M80 *** 'LB* CHB *** 



- MICRO PROCESSOR ASSEMBLER 6(31) 3-MAY-79 16J50 PAGE 3-128 



077*1 










J CUTE LITTLE ROUTINE FOR SELECTING WHICH BOOT TO LOAD 


377*j 


A1 A70£ 




7A0 

34^ 


A01 


ftTPMfiTFF* IP 
DltnUiuL* JL 


LURirl fir nil rmu* OLi rUK cUUI/ i«rUS 


3996 














3997 


A 4 ATT 4 

010/31 


315 


244 


030 


CALL 


ARG16, J ASSEMBLE THE ARG 


3998 










»AS LONG AS IT 


WAS A NUMBER* WE WILL LOAD THE BIAG BOOT 


TOGO 

3999 


t\i A77A 

010/34 


A7Z 

0/6 


AAZ 

006 




MVI 


A»6 5 A 6 IS THE OFFSET FOR THE HI AG PRE-BOOT 


A AAA 

4000 


A4 A*51/ 

010736 


AZO 

062 


i 70 

172 


AAA 

040 


EXIT4J STA 


RM100 J SAVE IT 


4001 


A1 A7JH 

010741 


71 i 

311 






RET 




4 A AO 


A1 A7A0 


A7£ 


AAA 

UU4 




LOAM 5 KVI 


A»4 5 PASS A 4.. TO SAY LOAD MONITOR BOOT 




A1 A7M 
U1U/44 


7A7 


774 


A01 


JHP 


EXIT4 ?AND COMMON EXIT 


4UU4 














A A AS 

4vUj 










? ROUTINE TO START UP THE MACHINE(KS10>» AND RE-ESTABLISH THE PARITY : 


Jl AA£ 

4006 


A1 A7A7 

010/4/ 


71 c 
31%i 


01 O 


Ai i. 
016 


BT.GOt CALL 


SMI } START THE MICRO-CODE 


AAA"? 


A1 A7^0 




177 
1/6 


A70 


JC 


D.BTERR 5 IF MICRO-CODE DOES NOT START 


AAAQ 


Ai A?^ 
vlU/JJ 








BT.G015 INTOFF 


i INTERNAL MODE OFF 


fit 


A1 A7 C , C , 


747 
00/ 






RST 


6 ;go exit from internal mode 


AAAfi 

4009 














4010 


010756 


076 


174 




MVI 


AjDEFLTE iGET MACHINE DEFAULT VALUE FOR ENABLES 


4011 


010760 


315 


361 


013 


CALL 


KS.PAR J SET THEM INTO THE RAM 1 WRITE INTO KS 


4012 


010763 


076 


020 




MVI 


AjTRPDEF jGET MACHINE DEFAULT FOR TRAP ENABLES 


4013 


010765 


062 


355 


040 


TP.SETi STA 


TRAPEN 5 SET DEFAULT INTO THE RAM 


4014 


010770 


323 


205 




DUT 


DIAG mm I/O URT 205/TRAPS ENABLE ***** 


4015 


010772 


311 






RET 


5 AND OUT 


4016 
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4018 










♦SBTTL 


ttt "MP CMD ttt 


4019 


010773 


042 


221 


040 


HTCHDi 


SHLD 


f*UTi *f»AIIP* IIHAT f>fSllllAliri Tt!Tf* T Pi P*Pl PtPTPtVP* llTt f MfiPtl/ 

CMD«* ?SAvE WHAT COMMAND THIS IS? SO RETRYS WILL WORK 


4020 


010776 


315 


224 


022 




CALL 


MTSETUP fGO TO SOME C0MM0H CODE 


4021 


011001 


076 


071 






MMI 


A* READ JAPE iGET THE COMMAND EXECUTION CODE FOR THE TAPE CMD 


4022 


011003 


315 


376 


024 




CALL 


MTXFR ?AND READ-IN THE MICRO-CODE FROM TAPE 


4023 


011006 


322 


017 


022 




JNC 


Mul jNQ NEED TO CHECK IF FATAL ERR IF ALL OK 


4024 
















4025 


OilOll 


T4 C 

315 


154 


022 




IALL 


NONFATAL »»AS AN ERROR* GO SEE WHAT RIND 


4026 


011014 


302 


201 


QM 




JNZ 


A.BTERR »ERR TYPE 'A' IF INITIAL READ FAILS 


4027 
















4028 


011017 


076 


002 




HTilJ 


mi 


AiMT.BIT iSET ACCOM <EQ< MAGTAPE BIT 


4029 


011021 


315 


045 


023 




CALL 


HEM2CRAM f LOAD MICRO-CODE FROM MEMORY TO 'CRAM' SPACE 


4030 
















4031 


011024 


315 


035 


022 




CALL 


MBINT 5N0U LOAD IN THE PRE-B00T PROGRAM 


4032 


011027 


315 


347 


021 




CALL 


BT.GQ I START THE MICRO-CODEf REPLACE PARITY t TRAP DEFAULTS 


4033 


011032 


303 


263 


021 




JMP 


LB.GQ1 J AND PROCEED TO START THINGS 
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CHBS.M80 


%n 


•HT" CMB ttt 




4035 










?N0W MUST B0 A RE-VIND., SKIP FIRST FILE(MICRQ-C0BE>» THEN REAB-IN THE 


4036 










JSECQND FILE(THE PRE-BOOT) 


4037 


011035 


A"» / 

076 


031 




MBINTJ MVI 


A»SKP.TAPE SGRAB A SKIP COMHANB 


4038 


011037 


315 


376 


024 


CALL 


HTXFR } ISSUE A REUIND, ANB A FILE-SKIP 


4039 














4040 










?N0W UE EXPECT THERE TO BE A FRAME COUNT ERROR FROM THE SPACE FORIMRD 


4041 










!AND UE WILL D 


HHAT HE CAN TO IGNORE IT 


4042 


011042 


322 


053 


022 


JNC 


HTSKOK »IF NO ERROR AT ALL? THATS OK TOO 


4043 














4044 


011045 


315 


154 


022 


CALL 


NONFATAL » CHECK ERROR TYPE IF FALL INTO HERE 


AiSAK 


Ai i ACA 


302 






JNZ 


L.BTERR J IF WAS NOT A FRAME COUNT ERROR* IT WAS MORE SERIOUS 


4046 














4047 










5IF COMPARE RESULT yAS ZER0> THEN THE ERROR MAS A FRAME COUNT ERROR 


4048 










J AND HE HILL IGNORE IT BY FALLING INTO THE CONTINUE COBE 


4049 


011053 


A "J / 

076 


071 




MTSK0K5 MVI 


A > READ. TAPE *»GET A TAPE REAB COMMANB 


4050 


011055 


315 


007 


025 


CALL 


QHXFR ? EXECUTE TAP COMMAND LIST WITH NO REWIND IN IT 


4051 


011060 


322 


071 


022 


JNC 


PASSME »N0 ERROR IF NO 'C BIT 


4052 
4053 


011063 


315 


154 


022 


CALL 


NONFATAL f SEE WHAT KIND OF ERROR 


4054 


011066 


302 


231 


032 


JNZ 


L.BTERR iBOOT ERROR IF NO Z 


4055 














4056 


011071 


052 


137 


040 


passme: lhlb 


TAPEUNIT J GET TAPE UNIT FOR CURRENT MAGTAPE SELECTION 
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4058 










*nnu dadc* Turn 
mm FhSS INFO 


4059 


011074 


345 






PAhSSRC} 


4060 


011075 








HQM5B 


(1) 


011075 


347 






RST 


(1) 


011076 


000 






♦BYTE 


4061 


011077 


242 


040 




♦ABBR 


4062 


A 4 A 4 A4 

011101 


A A*7 

047 


AAA 

040 




♦ABBR 


4063 


011103 


041 


051 


040 


LXI 


4064 


A4 4 4 A / 

011106 


ATI 

072 


'"SET A 

254 


AAA 

040 


LBh 


A A / t 

4065 


A4 4 4 •! 4 

011111 


266 






0RA 


A A / / 

4066 


A 4 4 4 * 

011112 


4 / "1 

167 






nuv 


406/ 












JIAXO 

4U6o 


A1 i 1 1 7 
Ul 1115 


44j 






rUbri 




A1 1 1 1 A 








L«LrUo 


i i \ 
(1/ 


A* 1 1 1 A 
011114 


24/ 






A3JA 

hNh 


fi\ 
\l) 


A1 1 1 1 5 
UiiiiJ 


olD 


01 7 


A7A 


PAi i 
Lhll 


{ 1 \ 


A1 1 1 0A 

U1112U 


A7£ 


AAA 




ATiTiD 
* fllJJJh 


4U/U 


A1 1 1 00 

011122 


,541 






DfiD 

rur 


4U/I 


AH 1 07 

U1112o 


Ail 

066 


AAA 
000 




Alii? 

nvl 


4072 


a 4 44 nr 

01112j 


7 A4 

341 






Fur 


4073 


A4 4 4 *W 

011126 


042 


A AT 

047 


AAA 

040 


SHLB 


4074 


011131 








BEP0S 


(1) 


011131 


247 






ANA 


(1) 


011132 


315 


217 


030 


CALL 


(1) 


A4 4 4 TfC 

011135 


An 

037 


AAA 

000 




.ABBR 


A A"3C 

4075 












40/6 


A4 4 4 "7*5 

01113/ 








nUVJD 


(1) 


A 4 4 4 "T"3 

01113/ 


347 






RST 


(1) 


011140 


000 






.BYTE 


4077 


011141 


362 


040 




.ADDR 


4078 


011143 


047 


040 




,ADDR 


4079 


011145 








DEP0S 


(1) 


011145 


247 






ANA 


(1) 


011146 


315 


217 


030 


CALL 


(1) 


011151 


040 


000 




.ADDR 


4080 


011153 


311 






RET 



IN L0 MEMORY ADDRESS SPOTS 

PUSH H {SAVE THE PASSED UNIT NUMBER ON TOP OF STACK 
iPASS RH BASE ADDRESS TO INTERNAL BUFFER 

4 



RHBASE {FROM HERE 
DMDAT {TO HERE 

H»DMDAT*2 {GET POINTER TO PIECE FOR UBA 
UBANUM 5 GET CURRENT UBA 
M {PUT IT INTO MEMORY 
M»A 

H {SAME THE POINTER TO "DMDAT" AREA 
36 i DEPOSIT IN MEMORY 
A JCLR "C-BIT" FOR USE BY COMMON CODE 
DEPSHT i AND DO THE DEPOSIT ASSUMING SHORT ADDR 

36 5 ADDR TO BE ZAPPED PASSED AS TRAILING AR6 
H J GET BACK THE POINTER TO "DMDAT" AREA 
M>0 ! CLEAR BYTE WITH BITS 12-19 

H {GET THE UNIT NUMBER THAT WAS SAVED ON THE STACK 
DMDAT 5AND PUT IT INTO THE DEPOSIT MEMORY DATA AREA 

37 {DEPOSIT IN MEMORY HERE 

A JCLR "C-BIT" FOR USE BY COMMON CODE 
DEPSHT »AND DO THE DEPOSIT ASSUMING SHORT ADDR 
37 {ADDR TO BE ZAPPED PASSED AS TRAILING ARG 

{FINALLY PASS DENSITY SLAVE INFORMATION 

4 


BEN.SLV {GET IT FROM HERE 
DMDAT {PUT IT HERE 
40 {AND MOS MEMORY HERE 
A JCLR "C-BIT" FOR USE BY COMMON CODE 
DEPSHT {AND DO THE DEPOSIT ASSUMING SHORT ADDR 
40 {ADDR TO BE ZAPPED PASSED AS TRAILING ARG 
{BACK TO CALLER 
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4082 










} ROUTINE THAT CHECKS TO SEE WHAT KIND OF ERROR HE HAVE SUFFERED UNDER 


4083 










J THE MAGTAPE TRANSFER 


4084 


011154 


076 


343 




nonfat: mvi 


A»<"03771FRHERR+2> JCHK ERROR CODE FOR FATAL OR NON FATAL TYPES 


4085 


011156 


041 


154 


040 


LXI 


H»ERRCD iNOH POINT TO THE ACTUAL ERROR TYPE THAT UE GOT 


4086 


011161 


276 






CHP 


H j COMPARE THE tmo 


4087 


011162 


365 






PUSH 


PSW JSAVE FLAGS WHILE UE RESET THE TAPE DRIVE 


4088 


011163 


14 A 

314 


*\4 £" 

015 


025 


CZ 


HTRESET » GO RESET ANY ERRORS ENCOUNTERED IN THE SKIP OPERATION 


4089 


011166 


1/4 

361 






POP 


PSU !GET BACK THE FLAGS 


A Aft A 

4090 


A 4] 44 /"J 

011167 


310 






RZ 


J ONLY RETURN IF ERROR WAS NON FATAL 


a An* 














A/inn 

4092 










5 FALL TO HERE IF ERR WAS FATAL TYPE., SEE IF UE CAN RETRY IT 


4093 


A4 4 4 "7 A 

oiii/o 


076 


340 




HVI 


ArC0377IRETRY.+2> » "RETRYABLE 1 ERROR?? 












CMP 


H JCOHPARE 


A Ant" 

4095 


AH 4 4 T7 

011173 


"?AA 

300 






RNZ 


JOUT IF CAN'T EVEN RETRY.. DIE 


4096 














4097 










f AND HERE IF IT WAS RETRYABLE 


4098 


011174 


061 


000 


044 


LXI 


SPfRAHST+"02000 {FIRST CLEAR THE STACK 


4099 


01117? 


041 


344 


003 


LXI 


H.NORHL »PUT A RETURN ADDRESS ONTO THE STACK 


4100 


011202 


345 






PUSH 


H 


4101 














4102 


011203 


052 


221 


040 


LHLD 


CHD.. iNOy GET "WHICH* COHHAND TO RETRY 


4103 


011206 


351 






PCHL 


5GIVE IT A GO 
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A A AC 










, SBTTL ttt 'MB* CMD ttt 


k 4 A / 

4106 










5 COMMAND TO LOAD ONLY THE BOOTSTRAP OFF OF THE CURRENTLY SELECTED MAGTAPE 


A <! A"1 

4107 


011207 


042 


in 

221 


AAA 

040 


HBCMDJ SHLD 


CMD.. 


5 SAME WHICH COMMAND THIS IS 


4108 


011212 


315 


224 


022 


CALL 


MTSETUP IGO TO SOME COMMON CODE TO SET UP FOR MAGTAPE XFER 


4109 


011215 


315 


035 


022 


CALL 


MBINT 


5ANB GO 


4110 


011220 


315 


347 


021 


CALL 


BT.GO 


i START UP THE MICRO-CODE t INTERNAL OFF 


4111 


011223 


311 






RET 




J BACK TO NULL JOB LOOP 


4112 
















4113 










J SOME COMMON CODE THAT SETS UP PARAMETERS FOR MAGTAPE XFER'S.. SAVES A FEW 


hi 4 A 

4114 










j BYTES OF 8080 SPACE 




4115 


A 4 4 1*\ A 

011224 


Tf 4 C 

315 


A4 C 

015 


023 


MTSETUP1 CALL 


BTINT 


i FIRST SET UP FOR THE BOOTING PROCESS 


4116 


A i i 11"? 

011227 


0/2 




AAA 
040 


LDA 


MTAUBA 


fGET SELECTED UBA FOR MAGTAPE 


4117 


A4 4 111 

01 1232 


062 


2j4 


AjiA 

040 


STA 


UBANUM 


J PASS TO COMMON SPOT FOR CHANNEL COMMAND LIST TO FIND 


A 4 4 n 

4118 
















4119 


011235 








M0V5B 




5 AND MOVE THE SELECTED MT BASE FOR RH BASE TO FIND 


(1) 


011235 


347 






RST 


4 




(15 


011236 


000 






.BYTE 







4120 


011237 


367 


040 




.AD BR 


MTBASE 


1 SELECTED MAGTAPE RH BASE ADDRESS 


4121 


011241 


242 


040 




.ADDR 


RHBASE 


{COMMON RH BASE REGISTER LOCATION 


4122 


011243 


311 






RET 




JBACK TO MAILINE 


4123 
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A i *5tr 

4125 


iSi i *}AA 

011244 


UAi AAA ♦ 

nAlOOO* 




011251 


HQNEsIU 


k 4 n 

4127 


A 4 4 / 

011256 


ONES* 


4128 




♦SBTTL 


412V 




? — rml 


JH 7A 

4130 




* 
? 


Alii 
4131 




f 


4132 










* 
? 






? 








4136 






413/ 












Ann 

413V 




* 


Ai Ai\ 

4140 




* 


Ai Ai 

4141 






Ai A*i 

4142 




f 


Ai AI 

4143 






Ai A A 

4144 






Ai A*Z 

4145 




* 


Ai A L 

4146 




i 


Ai AI 

4147 






AO 

414o 






Ai AO 

414? 




4 


41ju 






41j1 




a 
J 


Ai c .O 

41j2 




J 


4153 






MKA 

4154 




f 


41jj 




i 


Ai GTi 

4156 






h 4 CT"? 

4157 




i 


4158 






4159 




* 

? 


4160 




? 


4161 




? 


4162 




? 


4163 




i 


4164 







D OiOnliOOO 

D 505r755»f000f000 »*HQM' MEANS HOME BLOCK 

B 777»777m777»77? jALL ONES... 

FILE SYSTEM 

OF POINTERS F0RMAT-- 

+0 POINTER TO FREE 

+1 LENGTH OF FREE 

+2 POINTER TO MICRO-CODE 
+3 LENGTH OF MICRO-CODE 



+4 POINTER TO MONITOR PRE-BOOT 

+5 LENGTH OF PRE-BOOT 

+6 POINTER TO BIAG PRE-BOOT 

+7 LENGTH OF SAME 

+10 POINTER TO BC1 MICRO-CODE 

+11 LENGTH OF SAME 

+12 POINTER TO BC2 PRE-BOOT 

+13 LENGTH 

+14 POINTER TO MONITOR BOOT PROGRAM 

+15 LENGTH OF SAME 

+16 POINTER TO DIAGNOSTIC BOOT 

+17 LENGTH OF SAME 

+20 POINTER TO BC2 ITSELF 

+21 LENGTH OF SAME 

+22 POINTER TO FI-ABLE 

+23 LENGTH OF SAME 



♦ 

+776 POINTER TO FI-ABLE 366(8) 
+777 LENGTH OF SAME 



UER 6,2 KS10 CONSOLE PROGRAH 
CMBS.M80 FILE SYSTEM 



CROSS - HICRO PROCESSOR ASSEMBLER 6(31) 3-MAY-7? 16550 PAGE 3-135 



Ai IL 
3166 










i ROUTINE TO 'FIND THE 8080 FILE SYSTEMS WHICH IS REALLY JUST A PAGE 


A4 /"? 

4167 










iOF PHYSICAL POINTERS! 


TO PHYSICAL DISK LOCATIONS 


4168 


A4 4 *"W*7 

011263 


A*"»4 

021 


Ann 

002 


aah 

002 


UTPDflD* 1 VT 

ful»hUr« Lai 


B» "01002 5 FOR MICROCODE? ALWAYS GO TO 2ND POINTER 


416? 


A 4 4 •"1 / / 

011266 


325 






FILEINIT* PUSH 


D 


•f-Allf" ftftTilTPO TilTft TUP f*Ti f* DAf*r* 

(SAVE POINTER INTO THE FILE PACE 


Ai 7A 
41 /U 


01126/ 


715 

31j 


Olj 


A07 

023 


tHLL 


BTTUT 

tJlirfl 


THfUi btl Ur 1 u jJU h htHlUN 


JH 74 

4171 


A 4 4 ■07'! 

011272 


7*74 

321 






WTO 

rur 


1-1 

JJ 


jhtSIUKt titt nKLUilbl WAY 10 MAKE bUBKuuiiNL HAVh 


Ai 70 
41/2 


A4 4 077 

0112/3 


32D 






TTI ecu* D1ICU 


l> 


i Mill TTDI r TklTDV DflTklTO 

t nULUrLc. tnlhi rUiNIb 


41/3 


A4 4 n"7A 

0112/4 


71 C 

31j 


AO£ 

026 


AO 7 

023 


PAi 1 

LhLL 


DSKDFT 


{FETCH CURRENT DISK DEFAULTS 


AI 7A 

41/4 
















•nl/D 


A1 1 "177 

0112// 


AJH 

041 


AAA 
OUO 


AAA 

000 


LXI 


H»00 


5CLR "H-L* 


Ai 11 

41/6 


A1 i 7A0 

011302 


042 


112 


AAA 

040 


SHLD 


BLKADR 


SAND SET THE DESIRED CYLINDER TO 00 


41// 


AI i 7AC 
01 130 J 


AA7 

043 






INX 


H 


5 BUMP H»L TO HAKE IT ,EQ. 01 


41 /o 


Ai 1 7AZ 
011306 


AAO 

042 


1 AC 

10j 


AAA 

040 


SHLD 


BLKNUM 


jNOW SET THIS INTO THE BLOCK NUMBER (HOME BLOCK) 


Ai 70 
















most 


At 1111 


71^ 


770 


AOO 


CALL 


CHKHOM 


560 SEE IF THIS PAGE HAS THE "HOM" BLK I.D. 


A1Q1 


A1 171 A 


71 O 




AOO 


JZ 


GOODPK 


JIF YES, JUMP TO CONTINUE READ-IN 


QO 


























5 FALL THRU IF FIRST HOME BLOCK NO GOOD 




A1 1 717 


A7A 

V/Q 


A1 A 




HVI 


A»"010 


J TRY ALTERNATE HOME BLOCK 


4185 


011321 


062 


105 


040 


STA 


BLKNUM 


5SET BLOCK NUMBER TO ALTERNATE 


4186 
















4187 


011324 


315 


372 


022 


CALL 


CHKHOM 


»TRY ALTERNATE 


4188 


011327 


302 


201 


032 


JNZ 


A.BTERR JIF THIS ONES BAD> THEN GIVE UP 


4189 


011332 








GOOBPKJ EXAM 


1103 


•EXAMINE WORD WITH HOME BLOCK IN IT 


<1) 


011332 


315 


216 


030 


CALL 


EXAHSH 


(AND DO EXAM ASSUMING SHORT ADDRESS 


(1) 


011335 


103 


002 




* ADBR 


1103 


JADDR TO BE ZAPPED PASSED AS TRAILING ARG 
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JNOy THAT YOUVE READ HOHE BLOCK? FIND POINTER FILE 


4100 
41V2 










! AND TRANSFER THE ENTIRE HICRO-CODE INTO HOS HEHORY 


41Y3 










iSHORT ROUTINE TO HOME DATA FROH THE EMBUF INTO THE CHANNEL COHHAND LIST 


AiQA 
4IY4 


A* 4 "ft"? 

011337 


7i C 
31j 


7£0 

3j2 


AOO 

Q22 


CALL 


BLKRBR 


f READ IN THE PAGE OF POINTERS FROM THE BISK 


41VD 


A1 i 740 

011342 


770 

332 


1 11 

Iff 


A70 

032 


JC 


B.BTERR 


t ERROR IN BOOT PROCESS DURING POINTER PAGE READ-' 


Ai Ol 
















.A 10"? 

41V/ 










5N0y EXAM THE REAL DESIRED DATA 


Ai GO 
41Y8 


A1 1 1A5. 

v!134u 


7JH 

341 






POP 


H 


i FETCH UP THE FILE POINTER ADDRESS 


4100 


A1 174A 


AA7 

vo/ 






STC 




fSET SIGN WHICH INDICATES AND EXAMINE 


40AA 


A1 1747 


715 


005 


A7A 


CALL 


EXMHL 


1 AND READ IT IN TO HEM 


40A1 
















40A0 










i SHORT ROUTINE TO HOME DATA FROH THE EHBUF INTO THE CHANNEL COHHAND LIST 




A1 17«%0 




fits 


A4A 


BLKRDRi LHLD 


EMBUF+3 


J GET CYLINDER FROM SPECIAL HOME BLK PNTR 


49A4 


01 1 w 


ft49 


119 


v*tv 


SHLD 


BLKADR 


JSET CYLINDER IN CHANNEL COMMAND LIST 


40AR 


A1 1 7AA 


ART 


silt. 


A4A 


f Ml f! 






*f£.vO 


A1 1 7i7 


A4^> 


1 A5 


A4A 


qui fi 


Tii KM! IK 


icrT TNFfl TNTfJ THF TRrK/RFrTflR UnPTl 


4207 
















4208 


011366 


315 


367 


024 


PAJ 1 
LRLL 


1.10 Art\ 


irTMAI 1 Y PPMi THr FTPQT P&RF flF THF nFQTCFn 


40AQ 


A1 1771 


71 1 
Oil 






RFT 






A01 A 
















4211 










ii TTTI F E'fiflTTHF 
1 Li 1 ILL l\UU! int 


iu ntfiii 


In inL nUnL DLULi\? LnLU\ InHi Ii ID H nunx PLULIS 


j*oi o 
4212 










i vlft Inc. nun 


IB> AND 


RETURN Z-BIT SET IF IT IS 


401 1 

4213 


AI 1 7"70 

0113/2 


"lit: 

31j 


"2 LI 

36/ 


AOil 

024 


LHI\HUn« uhLL 


BSXFR 


» EXECUTE DISK TRANSFER 


4214 


U113/J 


770 

332 


OA4 
201 


A70 

032 


JL 


A.BTERR 


IBOOT ERROR 'A'? IF OOPS 


4215 
4216 


011400 








tAHfl 


1000 


JNOy EXAMINE THE HOME BLOCK IB 


as 
11/ 


A1 1 AAA 

U114UU 


71 c . 

31j 


01 it 

216 


A7A 


LRLL 


EXAMSH 


I AND DO EXAM ASSUMING SHORT ADDRESS 


/1 \ 


A1 1 4A7 


AAA 
vvv 


AAO 






1000 


fADDR TO BE ZAPPED PASSED AS TRAILING ARG 


4017 


A1 1 4A C , 


71 c , 


AOO 


A77 


LRLL 


CHP36 


f AND TRY OUT A COMPARE 


421o 


A1 1 hi A 
U1141U 


051 
2D I 


AOO 
U22 




* HvVl\ 


HOMEUB 


» EXPECTED ID 




A1 1410 


A10 


A4A 




♦ HUUK 


EMBUF 


i AGAINST WHAT UAS JUST READ IN 


AOOA 

422v 

A001 


Ai 1 Ai A 
UI1414 


71 1 
311 






RET 




>AND OUT 


4221 

.AOOO 
Hill 


Ai 1 A1 c 

01141j 








BTINT5 INTON 




?SET INTERNAL MODE ON 


S i \ 

u) 


A4 4 Air 

011415 


327 






RST 


2 


»G0 SET INTERNAL MODE 


4223 


AI 1 JH Z 

011410 








CLRB 


F'ARBT 


5N0 PARITYS 


4224 


A1 1 AOA 

U1142U 








CLRB 


TRAPEN 


5 AND NO TRAPS WHILE BOOTING 


422j 


Ai 1 AOO 

U11422 


715 

31j 


005 
22j 


AA5 


CALL 


MRCMB 


? AND DONT FORGET MR. RESET 


aoo£ 
4226 


A1 1 AIK 

U1142J 


71 1 

311 






RET 






4007 
















4090 










f LITTLE ROUTINE 


TO SET UP BISK DEFAULTS 




A1 1 40i 


A70 


757 
03/ 


A4A 


bskbft: lba 


BSKUBA 


»GET CURRENTLY SELECTED DISK UBA NUMBER 


407A 
42ou 


A1 1 471 
U11431 


AAO 
U62 


054 
2j4 


A4A 
U4v 


STA 


UBANUM 


JSET INTO COMMAND LIST PLACE 


4231 
















4232 


011434 








M0M5B 




»AND SEND CURRENTLY SELECTED RHBASE 


(1) 


011434 


347 






RST 


4 




(1) 


011435 


000 






.BYTE 







4233 


011436 


374 


040 




.ADDR 


BSBASE 


{CURRENT DISK RH BASE 


4234 


011440 


242 


040 




♦ADDR 


RHBASE 


»T0 PLACE FOR COMMAND LIST TO FIND IT 


4235 


011442 


311 






RET 




JOUT 
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CMDS.M80 


CRAM LOADER CODE 






4237 










•SBTTL CRAM LOADER CODE 


4238 


011443 


076 


001 




DMEM2CRJ HVI 


AjBT.BIT 5D0 COUPLE ROUTINES A FAVORi LOAD BIT 


4239 


011445 


062 


121 


040 


MEH2CR5 ST A 


BTJYPE 


? ACCUH HAD THE BOOTING TYPE** SAME IT 


4240 


011450 


041 


000 


000 


LXI 


HiOO 


fZEROES TO 'HfL 1 


4241 


011453 


345 






PUSH 


H 


j SAVE CURRENT CRAM ADDRESS 


4242 


011454 


315 


320 


014 


CALL 


CADUR 


» AND THEN liRITE IT TO THE CRAM 


4243 


011457 


076 


007 




MVI 


A>7 


1 START WITH FUNCTION 7 


4244 


011461 


062 


010 


040 


STA 


CRMFN 




4245 


011464 








NEWPAGJ MQV5B 




» INITIALIZE MEM ADDRESS 


(1) 


011464 


347 






RST 


4 




(1) 


011465 


000 






.BYTE 







4246 


011466 


244 


022 




.ADDR 


MA1000 


JWITH 1000 OCTAL 


4247 


011470 


017 


040 




»ADDR 


MEMAD 


J STANDARD MEM ADDRESS 


4248 
















4249 










5C0BE TO DECIDE IF WE HEED TO READ AN ADDITIONAL DISK SECTOR 


4250 


011472 


052 


017 


040 


i in tt 

LHLD 


nEflAD 


fUET CURRENT nOS nEn ADDRESS 


4251 


011475 


175 






RiuEXrn fluv 


a i 
A*L 


?bEi 8 BUS Or ABDREbb TO BE EXAnlNEB 


4252 


011476 


323 


103 




OUT 


A283j 


fSET PIECE OF ADDRESS INTO ADDRESS REGISTER 


4253 


011500 


174 






unit 
nOv 


A U 

H*H 


?8ET CQOrLE nORE BITS 


4254 


011501 


323 


105 




UU 1 




y be i IN ill CbL BOARD ADDRESS REGISTER 


4255 


011503 


076 


004 




Mi IT 

nvl 


A h 
A?4 


*cc*rrTAi k*rv th halt irvAiiTkici unDk* mDDrrT! v 
?brECIAL RET !U fiARE EXAfUNE wORft lUKKELILT 


4256 


011505 


315 


055 


012 


PAl f 

CALL 


EfUCRn 


*f*fi fin A MFMHDV CVAiiTUC OC TUC CUfiDT ET1 AMHD 

fOO DO A nEnORY EXAnlNE? Or THE SHORI rLAVOR 


4257 
















4258 


011510 


052 


012 


040 


LHLD 


EriBOr 


?8ET 16 BITS Or THE MEnORY DATA 


4259 


011513 


174 






nuv 


A U 
AfH 


*f % nDV Tn APfMIki On TUAT IJC f*Akl MAkT TT iT DTTO 

fCOrY 10 ACCOrif SO 1HAT wE CAN nAl\E IT 11 Bllb 


4260 


011514 


346 


017 




AifT 

ANI 


017 


fCLR THE BITS 


4261 


011516 


147 






MQV 


Hf A 


*rii it Tthf*v TUTn Tur* iiT nrtFir-rt nr*/* 

iPUT BACK INTO THE HI ORDER RE6 


4262 
















4263 


011517 


315 


263 


014 


CALL 


WFUNC 


1 WRITE THE PIECE 


4264 


011522 


041 


010 


040 


LXI 


Hf CRMFN 


{GET CURRENT DIAG FUNCTION 


4265 


011525 


065 






DCR 


M 


{DOWN COUNT 


4266 
















4267 


011526 


052 


013 


040 


LHLD 


EHBUF+1 


J GET 16 BITS OF THE MEMORY READ 


4268 
















4269 


011531 


016 


004 




MVI 


C»4 


?N0W A QUICK LITTLE LOOP 


4270 


011533 


257 






XRA 


A 


JCLR ACCUM TEMP 


4271 


011534 


174 






QQL00P1 MOV 


A»H 


?C0PY TO ACCUM 


4272 


011535 


037 






RAR 




? ROTATE INTO THE C-BIT 


4273 


011536 


147 






MOV 


H»A 


IPUT IT BACK 


4274 
















4275 


011537 


175 






MOV 


A»L 


» TRY BOTTOM PIECE 


4276 


011540 


037 






RAR 




» ROTATE C-BIT INTO THE TOP 


4277 


011541 


157 






MOV 


L»A 


i PUT IT BACK 


4278 


011542 


015 






DCR 


C 


f DOWN THE LITTLE COUNTER 


4279 


011543 


302 


134 


023 


JNZ 


QQLOOP 


(CONTINUE 


4280 
















4281 


011546 


315 


263 


014 


CALL 


WFUNC 


J WRITE THIS PIECE 


4282 


011551 


041 


010 


040 


LXI 


Hi CRMFN 


5 DOWN THE FUNCTION COUNTER 


4283 


011554 


065 






DCR 


H 


J DECREMENT 


4284 


011555 


362 


203 


023 


JP 


BBLOOP 


JJUMP AROUND THIS STUFF IF NOT AT FUNCTION 
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CHDS.H80 


CRAH LOADER CODE 






4286 










f IF DONE FUNCTIONS 0-7 » 


TRY A LITTLE REiJtT 


4287 


011560 


076 


007 




MVI 


Af7 


*C«£?£TADT AT riiklPTTfiil "5 

fhESTAM AT FUNCTION 7 


4288 


011562 


062 


010 


040 


STA 


CRMFN 


?SAvE IT 


428? 
















4290 










J HERE IF FINSHED A CRAM 


WORD 1 HEED TO DO RESET* 


4291 


011565 


341 






rOP 


H 


fGET CRAH ADDRESS 


4292 


011566 


043 






INX 


H 


? UPDATE 


4293 


011567 


345 






di leu 
rUSH 


H 




4294 


011570 


315 


320 


014 


PA! 1 


PATiUD 

CRBwh 


?N0U URITE THIS? THE NEXT CRAH ADDRESS 


4295 


011573 


174 






nuv 


A.U 
Rf H 


iNOy GET HI ORDER PIECE OF CRAH ADDR 


4296 


011574 


346 


010 




Hri 


UiU 


* Tf 4 TT Pft AAAA fll^TA! WPTOO 

? IS IT *EQ* 4000 OCTAL YET?? 


4297 


011576 


312 


221 


023 


17 


crrpARr 
OtLrHut 


*TC IIHT A AAA ftPTAi VCT rurr'fc* Cfl& A klVT UfiDTt 

fir NUT 4000 OCTAL YETf CHECK FOR A NXT HGRD 


4298 


011601 


341 






PfiP 
rur 


n 


* AUTi CtCCTrtDr DTAPk* BETflDr f fTAHTkiP 

jANB RESTORE STACK BEFORE LEAVING 


4299 


011602 


311 






PFT 




SHTUCDUTCC Ai i fiftkir 

fU!ntK«lbt ALL UUNt 


4300 
















4301 


011603 


052 


015 


040 


M\ HOP! 1 HI Ti 


LnDUiTO 


ff2E*AD 4 l dttc nr Tur ururt&v tiata 


4302 


011606 


174 






nuv 


Rf n 


*DA£C O CTTC* Tft TUr APPIIM £>n Ur PAki UAkT TT h OTTO 

?FASS o BITS TO THE ACCUn? SO wE CAN HAKE IT 4 BITS 


4303 


011607 


346 


017 




AkiT 

AN I 


Ul/ 


?OFF UNNEEBEB BITS 


4304 


011611 


147 






nuv 


U- A 
Hf R 


*DIIT TT DAPk' 

irUi II BALK 


4305 


011612 


315 


263 


014 


PAI 1 




fyKIlE iHIS DATUn 


4306 


011615 


041 


010 


040 


LXI 


H» CRMFN 


fuE! FUNCTION 


4307 


011620 


065 






ICR 


M 


?BUwN iU NEXI r UNCI ION 


4308 
















4309 


011621 


052 


017 


040 


seepage; lhld 


MEMAD 


fOET THE CURRENT nEnuRY ADDRESS 


4310 


011624 


043 






INX 


H 


f00 TO NEXT ADDRESS 


4311 


011625 


042 


017 


040 


SHLD 


MEMAD 


*fiAltr" TUT?* UPVT ATtTtFttTl^f^ 

iSAvE THIS NEXT ADDRESS 


4312 


011630 


174 






MOV 


AiH 


i TfT*T It PTiPi AT I flAAA 3 

»TEST H FOR AT '2000" 


4313 


011631 


346 


004 




ANI 


"04 


ilF '2000' WEIGHT BIT IS SET* TIME FOR NEW PAGE OF DATA 


4314 


011633 


312 


075 


023 


JZ 


RB.EXM 


JIF MEM ADDRESS .EQ. 2000» THEN FALL THRU TO NEXT READIN 


4315 


011636 


315 


244 


023 


CALL 


NEXTCR 


i ROUTINE TO FETCH NEXT PAGE OF CRAM DATA 


4316 


011641 


303 


064 


023 


JMP 


NEWPAG 


iAND BACK TO BEGINNING 


4317 
















4318 










{ELSE* MUST READ IN ANOTHER PAGE'S WORTH FROM CURRENT BOOT DEVICE 


4319 


011644 


072 


121 


040 


NEXTCR5 LDA 


BT .TYPE fFINB OUT WHAT KIND OF DEVICE WE ARE BOOTING FROM 


4320 


011647 


376 


001 




CPI 


BT.BIT 


JSEE IF DOING BOOT FROM THE DISK 


4321 


011651 


302 


266 


023 


JNZ 


TAPDEV 


JIF FLAG »NE< BT.BITr THEN BOOTING FROM MAGTAPE 


4322 
















4323 










JFALL THRU TO 


DO BOOT FROM DISK 


4324 


011654 


041 


146 


036 


LXI 


HjQXFR 


» SET UP FOR THE QUICK XFR COMMAND LIST 


4325 


011657 


315 


023 


025 


CALL 


CHNXCT 


IREAD IN» SHORT FORMAT (TRK/SEC/CYL IS PRESET) 


4326 


011662 


332 


175 


032 


JC 


C.BTERR 5 ERROR IN READING CRAM 


4327 


011665 


311 






RET 




J BACK TO CALLER 


4328 
















4329 










jJUHP TO HERE 


TO DO BOOT FROM TAPE 


4330 


011666 


076 


071 




TAPDEV: MVI 


A » READ » TYPE IPASS TO CHANNEL CHD LIST EXECUTOR THE XFR TYPE 


4331 


011670 


315 


007 


025 


CALL 


QMXFR 


{READ IN A SINGLE PAGE FROM MAGTAPE 


4332 


011673 


320 






RNC 




JIF NOTHING BAD* RETURN 


4333 


011674 


315 


154 


022 


CALL 


NONFATAL 


. 5 IF BADNESS* SEE IF FATAL KIND OR NOT 


4334 


011677 


302 


175 


032 


JNZ 


C.BTERR 


* ERROR IN READING THE CRAM 


4335 


011702 


311 






RET 




J BACK TO CALLER 
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CHBS.H80 ttt 'FI' CHD tit 



4337 










.SBTTL 


m "Fi 


* CHD *** 


4338 










? COMMAND TO READ IN A PARTICULAR PAGE OF THE FILESYSTEM AND TO EXECUTE ITS 


4339 










f CONTENTS AS IF THEY WERE TYPED IN 8080 COMMANDS 


4340 


011703 


315 


244 


030 


FICHD. 


CALL 


ARG16. 


5 COLLECT IT WHEN ITS THERE 


4341 


















4342 










fBtyARE 


..IF YOU TYPE FI WITH A BOGUS ARGUMENT? THEN YOU LOSE,, 


4343 










fHE WHO 


USES THE FI CHD BEST KNOW WHAT HE'S DOING 


4344 


011706 


021 


022 


002 




LXI 


D»"01022 » START WITH OFFSET '0' INTO THE «FI" FILES 


4345 


011711 


A74 

031 








DAD 


D 


i ADD THIS TO THE NUMBER TYPED TO GET THE DESIRED 


4346 


A 4 HT4n 

011712 


315 


266 


Ann 
022 




CALL 


FILEINIT 


5 READ IN THE DESIRED PAGE 


4347 


011715 


332 


174 

231 


ATI 

032 




JC 


L.BTERR JIF ERR 


4348 


















yaw 










*unu rin 

fnuw L'U 


SOMETHING WITH THE STUFF TYPED... 


4350 


011720 










nuvuo 




iFIRST MUST GET INFO FROH MOS MEM TO 8080 RAM 


/ 4 i 

(1; 


A 4 A TfnA 

011720 


1 A"? 

347 








PQT 

A3! 


4 




/ 4 \ 
(1) 


A 4 A "M i 

011721 


AAA 

000 








.BYTE 







4351 


011722 


nit 

244 


AH 

022 






,ADDR 


MA1000 


5 INFO STARTS AT HOS HEME LOC 1000 


4352 


011724 


017 


040 






.ADDR 


HEHAD 


? AND WE WILL TELL INTERNAL READER TO START THERE 


4353 


















4354 


A A A / 

011726 


A*^ 4 

021 


253 


A A 4 

041 




LXI 


D»E.BEG+2 iA PLACE TO STORE ASCII BYTES FROH HEHORY 


4355 


011731 








FLGETS 


INT0N 




}N0 PRINTING 


(1) 


011731 


327 








RST 


2 


160 SET INTERNAL MODE 


4356 


011732 


315 


232 


024 




CALL 


GATHER 


160 READ IN A WORD FROM HOS HEM 


4357 


011735 










INTOFF 




iOK TO PRINT NOW 


/ A \ 
(1) 


A4 4 "J*?C 

011735 


367 








RST 


6 


JGO EXIT FROM INTERNAL MODE 




A1 i "77 £ 


AC/ 
UJO 


AAA 






HVI 


L»4 


INOW ONLY 4 BYTES PER WORD ARE USEFUL 


4359 


A4 4 "J A A 

011740 


AA4 

001 


A 4 1 

012 


AAA 

040 




LXI 


BiEHBUF 


» AND THIS IS WHERE IN 8080 RAH THE BYTES ARE 


4360 


A4 4 "SAT 

011743 


A4 *\ 

012 






p*t until 

fi.mov; 


LDAX 


B 


» FETCH UP A BYTE 


4361 


011744 


022 








STAX 


D 


iPUT IT IN PLACE 


4362 


A4 4 "1 AC 

011745 


376 


377 






CPI 


"0377 


US IT END OF STRING?? 


4363 


011747 


302 


360 


023 




JNZ 


FI.NXT 


»IF NOi GO MOVE SOME HORE 


4364 


















4365 


011752 


315 


351 


034 




CALL 


HV.ALL 


J60T HEREj HOVE TO EXECUTE BUFFER 


4366 


011755 


303 


222 


002 




JMP 


DCODE 


i AND GO DO IT 


4367 


















4368 










5 NOPE,, 


HOVE SOME HORE 




4369 


011760 


003 






FI.NXH 


INX 


B 


{UPDATE THE POINTERS 


4370 


011761 


023 








INX 


B 




4371 


011762 


055 








DCR 


L 


JCHECK COUNT TO SEE IF WE'VE DONE 4 YET 


4372 


011763 


302 


343 


023 




JNZ 


FI.MOV 


JIF NOTi GO MOVE THE NEXT BYTE FROH THE CURRENT WORD 


4373 


011766 


303 


331 


023 




JHP 


FI.GET 


JYESj READ NEXT HEH WORD AND TRY IT 
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CHDS.M80 ttt "FI" CMD ttt 

4375 $;mmm*PR0P0SED instruction mttttttttttttmtt 

4376 m.SBTTL ttt 'Bi' CMD ttt 

4377 $> COMMAND TO READ IN A SECOND TYPE OF MICRO-CODE AND EXECUTE IT,, 

4378 m.E, BOOTCHECK 1 MICRO-CODE 

437? SiBlCMDJ LXI Bf"01010 JGET THE CORRECT OFFSET 

4380 ii CALL FILEINIT SREAD IN THE FIRST PAGE 

4381 if JC C.BTERR JIF ERR 

4382 »i 

4383 ii mi AjBT.BIT 5 SAY THAT THIS IS A LOAD FROM DISK 

4384 ii CALL MEM2CRAH J READ IT IN AS MICRO-CODE 

4385 »} CALL BT.GO j START IT UP 

4386 »i RET iTHAT IT 

4387 .SBTTL ttt *B2' CMD ttt 

4388 ? BOOTCHECK 2.. THIS LOADS IN A SEPARATE 'PRE-BOOTS WHICH 

4389 } LOADS IN THE BOOT CHECK 2 

4390 011771 076 012 B2CHB? MVI A»"012 ?GET THE OFFSET 

4391 0H773 062 172 040 STA RH100 I SAME IT SO THAT yE CAN USE SOME SUPER COMMON CODE 

4392 011776 303 247 021 JMP BT.SRC j THAT'S IT! ! ! ! 



VER 6,2 KS10 CONSOLE PROGRAM CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-MAY-79 16150 PAGE 3-141 
CMDS.M80 ttt *VD' C«D ttt 



A1QA 














43tj 










fCOnnflND TO 


VERIFY IHL UUNTlNTS Ur THE C-kAn huhINST Int nlCKQ~UJDI: 


4396 










?AS it sits 


nit r, T {"'V 

ON DISK 


439/ 


012001 


"7 4 ST 

315 


263 


Ann 

022 


vDCHDt CALL 


nlCROP ?N0U READ IN Hunt BLOCKS? THEN 1ST PAbE OF U- 


4398 


012004 


332 


4 "?C 

175 


032 


JC 


CBTERR » IF ERRORi GO TELL wllRLD ABOUT IT 


4399 














AAA A 


012007 


0/6 


AA4 

001 




MVI 


AiBT.BIT WENT OK,, SPECIFY A DISK TYPE OPERATION 


4401 


012011 


7A7 

303 


031 


A*} A 

024 


JMP 


VERCRAN JANB GO IN TO VERIFY THE CRAM 


A A AO 

4402 














44VtS 










♦SBTTL ttt 


■VT" CMD ttt 


AAfSA 










> COMMAND TO 


VERIFY THE CONTENTS OF THE C-RAM AGAINST THE MICR-CODE 


A 4 AC 

44Uj 










JAS IT SITS 


ON MAG TAPE 


4406 


012014 


315 


224 


022 


VTCHD5 CALL HTSETUP »G0 TO SOME COMMON CODE TO LOOK AT MAGTAPES 


4407 


012017 


076 


071 




MVI 


A » READ, TAPE 5 TELL CHANNEL LISTER TO DO A READ IN 


4408 


012021 


315 


376 


024 


CALL MTXFR 1 READ IN FIRST PAGE OF U-CODE OFF THE TAPE 


4409 


012024 


332 


201 


032 


JC 


A.BTERR }IF ERROR, GO REPORT IT 


4410 














4411 


012027 


076 


002 




MVI 


AjMT.BIT 5 WENT OK,, SPECIFY A TAPE OPERATION 


4412 










J FALL STRAIGHT INTO THE CODE TO VERIFY THE CRAM 
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CHDS.H30 VERIFY CRAM CODE 
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4414 
4415 
4416 
4417 

4418 012031 

4419 012031 
4420 

4421 012034 



062 121 040 



•SBTTL VERIFY CRAM CODE 

^ROUTINES THAT BO READ IKS FROM THE CURRENTLY SELECTED DEVICE 
JANH COMPARES THAT HARD MICRO-CODE DATA AGAINST THE CURRENT 
{CONTENTS OF THE CONTROL-STORE 
MERCRAH * 

STA BT.TYPE i BEGIN BY SAVING THE DEVICE AGAINST WHICH WE MILL VERIFY 



M0V5B 



5 START BY SETTING MEMORY ADDRESS AT 1000 



(1) 


012034 


347 






RST 


4 




(1) 


012035 


000 






.BYTE 







4422 


012036 


244 


022 




t ADDR 


MA1000 


$A '1000' 


4423 


012040 


017 


040 




♦ADDR 


MEMAD 


» PLACE WHERE MEM ADDRESS IS KEPT 


4424 


012042 


041 


000 


000 


LXI 


HfOO 


1 BEGIN WITH CRAM ADDRESS 00 


4425 


012045 


042 


004 


040 


SHLD 


CRMAD 


j SET CRAM ADDRESS TO ZEROES 


4426 


012050 


303 


063 


024 


JHP 


V.GO 


» ENTER LOOP AT THE PROPER PLACE 


4427 
















4428 


012053 


052 


004 


040 V.Dtt 


mi LHLD 


CRMAD 


5 GET CURRENT CRAM ADDRESS 


4429 


012056 


043 






INX 


H 


i AND UPDATE FOR NEXT TIME AROUND 


4430 


012057 


174 






MOV 


A»H 


5 PUT HI ORDER PIECE OF IT INTO ACCUM 


4431 


012060 


346 


010 




ANI 


"010 


fSEE IF AT END OF CRAM YET 


4432 


012062 


300 






RNZ 




ilF IT IS* ALL DONE* 60 OUT 



4433 
4434 

4435 012063 

4436 012066 

4437 012071 

4438 012074 
4439 

4440 

4441 012077 

4442 012102 
4443 

4444 012105 

4445 012110 

4446 012112 



315 320 014 

042 004 040 

315 204 013 

315 021 015 



001 205 024 

021 302 040 

315 232 024 

076 003 

062 253 040 



5 HERE IF REALLY READY TO 
V.G05 CALL CADUR 
SHLD CRMAD 
CALL CP1 
CALL RCINT 



A CRAM LOC 
5URITE IT TO CRAMj BE IT GOOD OR BAD 
INOy SAVE ADDRESS WHILE UE DO SOME STUFF 
i SINGLE CLOCK GETS CRAM CONTENTS TO CONTROL REG 
5 READ IN CONTENTS OF C-RAM AND SAVE IN 8080 RAM 



5HERE WHEN CRAM DATA IS SAFELY TUCKED AUAY IN THE 8080 RAM 

LXI BjVERLST iB»C PAIR POINTS TO LIST OF DATA OFFSETS 

LXI DrCRMBF (OiE PAIR POINTS TO ACTUAL DATA LIST(H»L PNTS EXPECTED) 

V.NXMEM1 CALL GATHER I HERE TO CALL ROUTINE THAT READS IN THE NEXT MEM WORD 
HVI Ai3 »AND TAKE TIME OUT TO RESET THE 3 COUNTER 
STA VERCNT jSET UP A CLEAN COUNT 
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CHBS,M80 


VERIFY CRAM CODE 






4448 










itm HERE BELOW BEGINS THE ACTUAL DATA COHPARES 


4449 


012115 


012 






11 R! P* 1 ftAY 


B 
D 


ifjcT tup cTpcT tmtvy bytit rpn&t rue i tot nir bytfc 
iut l 1 ilL rIf\Qi XKUC.A olit. ri\Un IHt Lioi Ur i?f iLo 


4450 


012116 


346 


077 




AkfT 
firel 


u// 


fUrr int blbnfiLb? nHU tun i 1 Nut 


4451 


012120 


052 


012 


040 


11 p| pi + | ui ft 


tnCur 


fuel tArtbitM DRIft 1511 U n?L KtuioiLr. 


4452 


012123 


003 






T&Y 




f Ur Iffl 1 1 i>f L fU ruiNI Hi rUNU lun htfiU 


4453 


012124 


203 






filly 


t 


iATiTi AC AM nCCOrT TH TUC ft.r DATP 

*nuU fib fin Urrbtl III Int lift rfilh 


4454 


012125 


137 






nUV 


ca. 

tin 


j rUI Int bUUil fwUh bfibrs inlu t 


4455 


012126 


172 






nuv 


A. ft 


iAMTi HPAtf TUC LIT flDriCD CfiD A CFP 

fftnu tmRc i lie. HI UKUtK rim fi btL 


4456 


012127 


316 


000 




ATT 


A 

V 


$M\Tl Ttf TUF PAPPY TP PFfiflTPfTf 


4457 


012131 


127 






MRU 




• PUT THF HT HRTiFP B&Pk* Aft&Thl 
frul int ni. ur\L«L\f\ Dmm nun in 


4458 
















4459 


012132 


032 








if 




4460 


012133 


023 








Fl 

if 


•IIPFfATF PflTNTFR Tfl AfTIIAI 


4461 


012134 


275 






CHP 

ul it 


I 


iTOHPARF ASATN^T F5c*PFrTFTi 


4462 


012135 


302 


146 


024 


1M7 

vfHi. 


U.FRR 

V * £.l\f\ 


JRFPHRT IF ftAfl&JF^ 


4463 
















4464 


012140 


174 






1 lUY 


nfn 


sRFT IIPPFR i'7 I1F THF FypFPTFTl 

JUL! UrrLi\ Li. DX13 Ur mL LAiLuiLi' 


4465 


012141 


346 


017 




AN I 


"017 


rlF DATA HAS EQUAL , ONLY DISCREPENCY CAN BE IN B7-B4 


4466 
















4467 


012143 


147 






MOV 


H»A 


5GET THE 4 BITS OF DATA LEFT AFTER THE "AND" 


4468 


012144 


032 






LBAX 


D 


?GET THE ACTUAL DATA TO ACCUM 


4469 


012145 


274 






CMP 


H 


»SEE IF SAME 


4470 


012146 


304 


274 


024 


V.ERRt CNZ 


VERRPT 


5 AND B3-B0 SHOULD BE ,EQ. 0,, IF NOT REPORT AS ERROR 


4471 


012151 


033 






BCX 


D 


JFIX D TO LOOK AT THE BEGINNG OF THE 'ACTUAL' 2 BYTES 


4472 
















4473 










»N0« NEED TO CHOOSE IF NEED CHECK T«ICE<F0R DOUBLE COPIES) , OR IF END 


4474 










»0F LIST FOR THIS CRAM WORD 


4475 


012152 


003 






INX 


B 


{UPDATE POINTER INTO THE INDEXER LIST 


4476 


012153 


012 






LDAX 


B 


5GET THE NEXT INDEX BYTE 


4477 


012154 


027 






RAL 




5C0PY SIGN INTO C-BIT 


4478 


012155 


332 


053 


024 


JC 


V.DONWD f IF SET? END OF LIST., 60 DO NEXT CRAM WORD 


4479 
















4480 


012160 


027 






RAL 




5 HASN'T END OF LIST., SEE IF A DOUBLE CHECKER 


4481 


012161 


332 


115 


024 


JC 


V.BLP 


J JUMP BACK TO MAIN LOOP WITHOUT UPDATING IF YES 


4482 
















4483 










5IF NOT A DOUBLE f MUST FALL THROUGH TO UPDATE EXPECTED 
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4485 










{HERE UHEN MUST UPDATE EXPECTED.. NOT A DOUBLE COPY 


4486 


012164 


041 


253 


040 


V.NXTJ LXI 


HfVERCNTJLQAD CURRENT COUNT FOR HON MANY COMPARE PER MEM WORD 


4487 


012167 


065 






DCR 


M 


? DECREMENT THAT COUNT 


4488 


012170 


312 


105 


024 


JZ 


V.NXMEM f IF DOWN TO ZERO, GO READ IN THE NEXT MEMORY WORD 


448? 
















4490 


012173 


041 


012 


040 


LXI 


HjEHBUF iTELL SHR36 WHERE IT SHOULD SHIFT 


4491 


012176 


315 


154 


031 


CALL 


SHR36 


iTr HftT riftlttl fMlTPT illlAT Uf" HAHP Tfl Till" HfVT 4 *■* TiTT f*!"irt 

» IF NOT DOWN* SHIFT WHAT WE HAVE TO THE NEXT 12 BIT GRP 


4492 


012201 


014 






.BYTE 


12, 


jbrtLlrY THt NEXT 12 Bli oKUUr lb WHAT Wt WAN1 


4493 


012202 


303 


115 


024 


JMP 


M.BLP 


*Auri muTTunr tu Tur BTf 1 i fine 
»AND UlNIImJc. IN IHE Blu LUUr 


A ADA 

4494 
















449j 










{LIST OF INDEXER BYTES 




A AOL 

4496 










.RADIX 8 






AAQ1 
44 7/ 




AAA 


Ai 1 




VERLST i .BYTE 


0»17 


{READ FCN 17 (BITS 84-955 


A ADO 

4498 


A4 

Qlilvf 


AA1 


AI I 

016 




.BYTE 


2*16 


5 READ FCN 16 (BITS 72-835 


» inn 

4499 


012211 


002 


015 




.BYTE 


2*15 


{READ FCN 15 (BITS 60-71) 


4500 


012213 


AAA 

002 


A4 A 

014 




♦BYTE 


2»14 


» READ FCN 14 (BITS 48-595 


4501 


012215 


002 


013 




.BYTE 


2»13 


5 READ FCN 13 (BITS 36-475 


4502 


012217 


102 


012 




.BYTE 


102*12 


JREAD FCN 12 (BITS 36-475 SECOND COPY 


4503 


012221 


010 


006 




.BYTE 


10?6 


{READ FCN 6 (BITS 24-355 


4504 


012223 


102 


005 




.BYTE 


102*5 


{READ FCN 5 (BITS 24-355 SECOND COPY 


4505 


012225 


002 


004 




.BYTE 


2*4 


JREAD FCN 4 (BITS 12-235 


4506 


012227 


010 


000 




.BYTE 


10*0 


{READ FCN (BITS 00-115 


4507 


012231 


200 






.BYTE 


200 


SEND OF LIST MARKER 


4508 










.RADIX 10 
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A&i A 

4j10 










i SUBROUTINE TO READ IN THE NEXT WORD FROM MEMORY, 


AC A A 

4511 










1 ALSO CHECKS TO SEE IF AT THE END OF THE MEMORY PAGECADDR 1777) » AND IF SO 


4512 










?T0 60 AND READ IN THE NEXT PAGE OF MICRO-CODE FROM THE DEVICE AGAINST 


ACM "7 

4513 










iHHICH HE ARE VERIFYING THE MICRO-CODE. 


4514 


012232 


325 






OATHtR* PUSH 


D 




4515 


012233 


305 






rii ifi i 

PUSH 


B 




4516 
















4517 


A A 11*7 A 

012234 


052 


017 


AAA 

040 


1 Hi Ti 

LHLB 


MEMAD 


?GET CURRENT MEMORY ADDRESS 


AC* Q 


A1 *)'577 

01223/ 


7AC 

34^ 






rUSH 


H 


J SAVE CURRENT MEM ADDRESS 


4j1t 
















4520 


A-i OliA 

012240 


A "9 A 

174 






nuv 


A»H 


1 GET THE HI ORDER PIECE OF THE MEM ADDRESS 


4521 


012241 


7 A / 

346 


AA A 

004 




A1JT 

ml 


"04 


JSEE IF ADDRESS AT «2000* YET 


4j22 

^507 


A4 r\r\ t-r 
012243 


312 


261 


024 


17 


G.SKP 


5 IF NOT, SIMPLY GO READ IN THE NEXT WORD 


432,3 
4*j24 










if! C£T 54*1107 prAfi 


IN THE NEXT PAGE OF MICRO-CODE 


4j2j 


Ai 

012246 


71 C 


244 


A. 17 

025 


wnLL 


NEXTCR 


JDQ THE READ IN 






















7A1 






POP 


H 


56ET OLD CRUMMY H>L OFF THE STACK 




A1*>W) 


AAt 


AAA 




LXI 


H»"Q1000 I WANT TO RESET MEM ADDRESS TO BEGINNING OF PAGE 












PUSH 


H 


JPUT BACK ON STACK 


A57A 
4D5U 


A1 T'jcri 


AAO 


A1 7 


AAA 


SHLD 


MEMAD 


J AND PASS NEV ADDRESS IN RAM 


4531 


012261 


315 


036 


012 


G.SKP? CALL 


EM2 


» EXAMINE THE NEXT MEMORY HQRD 


4532 


012264 


341 






POP 


H 


iGRAB THE ADDRESS HE HANT TO READ NEXT TIME 


4533 


012265 


043 






INX 


H 


i UPDATE TO NEXT 


4534 


012266 


042 


017 


040 


SHLD 


MEMAD 


JPUT IT BACK 


4535 


012271 


301 






POP 


B 


5 RESTORE THE REGS NOU 


4536 


012272 


321 






POP 


D 




4537 


012273 


311 






RET 




5 AND OUT 



UER 6.2 KS10 CONSOLE PROGRAM CROSS - HICRO PROCESSOR ASSEHBLER 6(315 3-HAY-79 16150 PAGE 3-146 



CHBS.H80 


VERIFY CRAM CODE 






4539 








i VERIFY ERROR REPORTER SUBROUTINE, REPORTS VERIFY ERRORS AS THEY HAPPEN 


4540 








5 AND THEN PERMITS THE VERIFIER TO CONTINUE VERIFYING THE REST OF THE CRAM 


4541 


012274 


345 




VtKKr 1 ♦ rUbri 


y 
H 


ibRvt LUmtNlb Ur H?L rftlh 


4542 


012275 


325 




Dl lf*L! 


D 


?nUbT ALSO SAVE utt 


4543 


012276 






imUtr 




•ddtut Ai i tuto prints C'Tnrc 
jrKiNf ALL inib bUUiJ biUrr 


(1) 


012276 


367 




DCT 

Kb i 


L 



sfin cvtt ronu tutcduai ynnr 
fbu tAll rhlm INItKNnL riUUt 


4544 














4545 


012277 


041 004 


040 


LAI 


U n PPMATi 

n f LKriHli 


;mru dp tut tuc ppam ATiriDccc nr Tur cati Tunt pdam unDri 
HntN rKiNI Int LKRfi HJiJJKtbb Ur Int rHiLlNb LKftn sUKU 


4546 


012302 


315 317 


030 


PAI 1 
LRLL 


Pi A 
rio 


JAM?"! PPTMT Hi IT TI4C Annpiroc 
ffmU riuHl UUI lilt RUUKbob 


4547 














4548 


012305 






PQI 

r OLHDn 




f 1 rmUw UUI 8 / 


(25 


012305 


317 




f\0 i 


1 


SRfl PPT NT PHAB TN TftATI TNR PVTF 

tUU ri\iRi unnfs lit mnJLLinu OilL 


(25 


012306 


057 




* BYTT 

♦ r«i it. 


OLHOn 


*PH6P Tfl PPTMT 
yLnrm iu rnini 


4549 














4550 


012307 


012 




LURa 


B 
D 


srrTPU hp TMr tjtar niMP nr tuf Bran fati hpf 
jrtiLn ur mil uLHu rU«L ur 1 rtn htftH rRlLUfuL 


4551 


012310 


315 304 


030 


TAJ 1 
LHLL 


P8BTT& 
rOoi IB 


* Ayn ppTUT TT 
InWU rl\iRi 11 


4552 














4553 


012313 






DfliAD 

rtHRh 


* 


*DTMDI r PUADAPTrDO AC*r l» A s 

?binrLt LHRKRlltKb mt ♦ R 


(15 


012313 


317 




Kb! 


i 
1 


SfiH DDTKJT PUAD TM TDAT! THE BYTF 
full rKiNI LURK in IKRILINb UT 1 1 


(15 


012314 


072 




♦ BY It 


/ * 
♦ 


iPUAD TO DDTUT 

?LnRK IU rKlnl 


4554 


012315 






DCDAPIT 

rbrRLt 






(2) 


012315 


317 




DCT 

Kb I 


1 


*f*n DDTUT PUAD TU TDAT! TUP TJVTr 

fbu rhlm CHrK IN TRRlLINb BYlt 


(25 


012316 


040 




BYTF 
*D1 It 


ODApC 

br RLt 


iPUAD TH DDTKJT 
iLHRK IU Huff! 


4555 


012317 






PPM. AD 


R 




(15 


012317 


317 




DCT 

Kb 1 


4 


inn DDTUT PUAD TU TDATi TUP DVTC 

?uU rKINI lHhK IN IKRiLINb BY it 


(15 


012320 


101 




.BYTE 


'A 


5 CHAR TO PRINT 


4556 


012321 






PSPACE 






(25 


012321 


317 




RST 


1 


?G0 PRINT CHAR IN TRAILING BYTE 


(2) 


012322 


040 




.BYTE 


SPACE 


fCHAR TO PRINT 


4557 














4558 


012323 


353 




XCHG 




} AND N0y H?L POINTS AT THE ACTUAL 


4559 


012324 


053 




ncx 


H 


fNOy Df E POINTS TO THE ACTUAL 


4560 


012325 


315 317 


030 


CALL 


P16 


JPRIHT THE ACTUAL DATA 


4561 


012330 


353 




XCHG 




IFIX SO HjL POINTS AT TEHP L0C ONCE AGAIN 
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4563 


012331 








PSPACE 




f ANOTHER SPACE 


(2) 


012331 


317 






RST 


1 


fGO PRINT CHAR IN TRAILING BYTE 


(2) 


012332 


040 






♦BYTE 


SPACE 


fCHAR TO PRINT 


4564 


012333 








PCHAR 


'E 


}A "y* STANDS FOR "HAS" 


\l) 


012333 


317 






RST 


1 


* r*n r«r«TiiT pntAPt Tii ?Ps>?i tup* riV/Tf 

fGO PRINT CHAR IN TRAILING BYTE 


(15 


012334 


105 






♦ BYTE 


'E 


A fMl A Pi Tfi PtPtTUT 

?CHAR TO PRINT 


4565 


012335 








PSPftCE 






\l) 


012335 


317 






RST 


4 
1 


*r«n r«riTiiT niiAPi tii tpi* Ti tup» tWTr* 

fGO PRINT CHAR IN TRAILING BYTE 


\l) 


fii '"ill I 

012336 


AAA 

040 






TjVTE" 

♦ BfTE 


or ACE 


yLHftK ill PRINT 


4D66 
















<KJ6/ 


A1 *">777 


A^l 


A1 


AAA 


i Ui Ti 
LrO 


fcnDUr 


fbtl frit tArtLltSJ imin inlu ri?L rnlh 


& C ,AQ 




1 7 A 






Hull 
nuv 


Rf n 


ill AWT Tfi STPTP ANY BTTQ ARflljr 11 
fwRpli IU oiKir HrT dI\q RBUvt 11 Vila 


^JOY 


UiiCW 


7AA 


A17 
vi/ 




AklT 

ftru 


Ui/ 


ifcTTP fi&H V DPI FUAkJT &TT£ 


*IJ/U 


A1 17A5 


1 A 7 






nUv 


flfR 


i Pi IT TT HAftf 
frUl II 8RLf\ 


Ami 


A1T2A£ 


AA*> 


1 AA 


AAA 




TMPEO 

inrDii: 


5 MIT TT TM TUF TrMD PI Arc 
fru! il in Int itnr rLRtt 




A1 0751 




71 A 


A7A 


PAl f 




i PPT KIT TUC CYPCPTirr} 

frKirtl int tArttlty 




A4 07CA 








rtKLr 






(2) 


012354 


347 






RST 


* 

4 




(2) 


012355 


AA*"t 

002 






♦BYTE 


2 




AC"? A 

4574 
















4575 


012356 


305 






m if* ii 

PUbH 


B 


fSAVE B REG TOO 


4576 


012357 


315 


205 


034 


CALL 


BECNET 


5IF THERE IS A HOSTi TELL HIM TOO 


4577 


012362 


301 






POP 


B 




4578 


012363 








INTON 




jAND BACK TO INTERNAL MODE 


(1) 


012363 


327 






RST 


2 


$60 SET INTERNAL H0DE 


4579 


012364 


321 






POP 


B 




4580 


012365 


341 






POP 


H 




4581 


012366 


311 






RET 
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"rJDd 










» EXECUTE CHANNEL COMMANDS.... 


HJ04 


Ai 071*7 


AA1 
U41 


A^O 


A7i 


uuArn. Lax 


M.MfQFn !PNTR Tfl rflMMANTl i T<?T 


Acne 


Ai 07*70 


71 *C 


A07 


AOC 


AUIHUH. UHlL 


LflNALI ItAtLUIt LnHrmLL L131 


4586 


0123/vi 


71 i 

311 






PITT 
l\tl 




ACQ"? 

4j87 














4588 


A4 *V7"J / 

0123/6 


A k A 

041 


215 


ATP / 

036 


UTVrD. 1 VT 

nTXrK. LXI 


mnlfibtU »rNlK ill tunnftrii! Lib 1 


4589 


012401 


062 


< * * 
144 


040 


XCTMTA5 STA 


SKP.G0 IACCUM HAD XFR TYPE.. SAME IT 


4590 


012404 


303 


372 


024 


JMP 


XCTN0W >G0 EXECUTE THE CHANNEL COMMAND LIST 


4591 














4592 


012407 


041 


275 


036 


QHXFRt LXI 


HiQTXFR iPNTR TO COMMAND LIST 


4593 


012412 


303 


001 


025 


JMP 


XCTMTA 5G0 EXECUTE THE CHANNEL COMMAND LIST 


4594 














4595 


012415 


041 


363 


036 


MTRESET5 LXI 


H»MTARST » CHANNEL COMMAND LIST TO CLEAR ERROR 


4596 


012420 


303 


372 


024 


JMP 


XCTNOH iGO EXECUTE THE CHANNEL COMMAND LIST 
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A^.OQ 
4J70 










.SBTTL CHANNEL COHHAND LIST EXECUTOR 


4599 










i ROUTINE TO A CHANNEL COHHAND LIST TYPE OPERATION. FOR DATA 


A / AA 

4600 










» TRANSFERS FROH OUR SELECTED BOOT DEVICE., 


460 i 










» COHHAND LIST IS CODED AS FOLLOWS 


A ZA1 

4602 










. THE LIST IS A SERIES OF 36-BITCOHHANBS, 


A t AT 

4603 










.WE HAVE FREE USE OF BITS 0-17 AS COHHAND TYPES 


46U4 










5 BITS 15.16.17 


.EG. 


MEAN "DI" COHHAND 


4oUj 










. BITS 15.16.17 


.EG. 


1 MEAN "LP COHHAND 


AAhA 










5 BITS 15.16,17 ,EQ. 


2 MEAN "EI" COHHAND 


iQvf 










i BITS 15.16.17 


.EQ, 


3 HEAN "WAIT" COMMAND 


*tOvu 










» BITS 15.16.17 .EG. 


4 MEAN "ERRTST" COMMAND 


AAAO 










5 BITS 15.16.17 


»EQ. 


5 MEAN "END* OF COMMAND LIST 


A£1A 










S BITS 15.16.17 


.EQ. 


6 MEAN "TWAIT" COMMAND 












f BITS 15.16.17 .EG, 


7 HEAN 'UBA' COMMAND 




























.POINTER TO THE CURRENT COHHAND LIST IS ALWAYS STORED IN H.L 


AAi A 
4014 


A10A07 








UIRaL I * in 1 UN 




I SET UP FOR INTERNAL MODE 




A1 OA 07 
UI2423 


707 

32/ 








2 


iGO SET INTERNAL MODE 


AAi e , 
4QlJ 


A1 OAOA 
Ui£4*.4 


7A C , 






rUhri 


B 




AAA A 
4010 


A1 OA OR 


705 






r-USH 


D 




A£1 7 

40i/ 


A10AOZ 

Ui£4£0 


7a c ; 

043 






rUbrl 


H 




Alio 
461o 
















4017 


A1 OAT? 


A01 
V21 


AAO 


UUU 


BSCONi LXI 


D.2 


»"D.E' GETS THE CONSTANT '2' 


AL OA 
462U 


i\i 0470 

U 12432 


A7*? 

U3i 






DAD 


D 


.NOW 'H.L' POINTS TO «DATA+2'(BITS 12 


AA01 
40£i 
















AAOO 

4022 


A10A77 


1 AA 
1U4 






HOV 


B.H 


.COPY "H.L 1 INTO "BfC 


4623 


A1 0A7A 

U12434 


liJ 






HOM 


C.L 




4ZOA 

4624 


ai 0475 
U1243J 


"7 Air 

343 






PUSH 


H 


.SAVE "H.L" 


462j 


Ai 0£7Z 
U12436 


1 "7Z 

1/6 






MOM 


A.M 


.GET BITS 12-19 INTO ACCUM 


AZOZ 

4626 
















4627 


A1 1A 11 

012437 


A7"? 

037 






RAR 




SNOW JUSTIFY ACCUM AT BITS 16.17 


4628 


A1 OAAA 

012440 


A77 

037 






RAR 




.TAKES 2 SHIFTS 


A / 10 

462? 


AH *"i A AH 

012441 


1 A I 

346 


AH "3 

017 




ANI 


"017 


.OFF ALL BUT BITS 14.15.16.17 


Jk Z7A 

4630 


A1 O.AA7 

012443 


137 






MOV 


E.A 


JNOW PUT INTO LO-ORDER HALF OF DOUBLE 


ALIA 

4631 


AH HAii 

012444 


AjH 

041 


AZZ 

066 


025 


LXI 


H.DSLST .GET A PNTR TO THE DISPATCHING LIST 


4632 


AH OA A"? 

012447 


ATH 

031 






DAD 


D 


ICREAT PNTR TO THE COHHAND 


ALII 

4633 
















ALIA 

4634 


AH niCA 

U124jU 


1 7Z 

136 






MOV 


E.M 


.GET LO ORDER PIECE OF CMD DISPATCH 


46i5 


012451 


A AT 

043 






INX 


H 




4636 


012452 


126 






HOV 


D.M 


5GET HI ORDER PIECE OF CHD DISPATCH 


4637 


012453 


353 






XCHG 




.ASSEMBLED ADDRESS TO "H.L" 


4638 


012454 


021 


061 


025 


LXI 


D.XFRRT 5N0W GET A PSEUDO RETURN PC TO PUT ON 


4639 


012457 


325 






PUSH 


D 


J AND PUT IT THERE 


4640 
















4641 


012460 


351 






PCHL 




.DISPATCH TO THAT ASSEHBLED ADDRESS 


4642 

















VER 6,2 KS10 CONSOLE PROGRAM CROSS - HICRO PROCESSOR ASSEMBLER 6(315 3-HAY-7? 16150 PAGE 3-150 



CHB8.H80 


CHANNEL COMMAND LIST EXECUTOR 




4644 








5 UPON COMPLETION OF THE COMMAND LIST COMMANDS. YOU GENERALLY 


4645 








{RETURN HERE IN THE CODE 


4646 


012461 


341 




XFRRT! POP 


H 5 GET THE POINTER TO CURRENT LOCATION IN COMMAND LIST 


4647 


012462 


043 




INX 


H 5 MAKE IT POINT TO NEXT WORD IN THE LIST 


4648 


012463 


303 


027 025 


JHP 


DSCON I AND CONTINUE IN COMMAND LIST EXECUTOR 


464? 
4650 








fCOHHAND LIST DISPATCH SELECTION 


4651 


012466 


164 


025 


DSLSTt ,ABDR 


CMDDI rDI CMD .EQ. 


4652 


012470 


112 


025 


•ADDR 


CHDLI }LI CMD .EQ. 2 


4653 


012472 


106 


025 


.ADDR 


CHDEI iEI CHD .EQ. 4 


4654 


012474 


213 


025 


.ADDR 


CHBHAIT rUAIT CMD .EQ. 6 


4655 


012476 


262 


025 


.ADDR 


CMDERCHK iERRTST CHD .EQ. 10 


4656 


012500 


302 


025 


.ADDR 


CMDEN J END CHD .EQ. 12 


4657 


012502 


244 


025 


.ADDR 


CHDTWAIT mil CMD WITH NO TIMEOUT. CHECKS FOR BIT TRUE .EQ. 


4658 


012504 


146 


025 


.ADDR 


CHDUBA iLI TYPE CHD. NO OFFSETS » GOOD FOR UBA STUFF .EQ. 16 



MER 6,2 KS10 CONSOLE PROGRAH CROSS - HICRO PROCESSOR ASSEHBLER 6(31) 3-HAY-79 16J5Q PAGE 3-151 
CHDS.H80 CHANNEL COHHAND LIST EXECUTOR 



466U 










5 CODE FOR 'EI' COHHAND 




ALU 

4661 


012j06 


24/ 






CMDEIt ANA 


A 


f LLK THE. C-Bll 


4662 


01250/ 


303 


113 


025 


JHP 


CHDLI1 


rSO TO COHHON CODE FOR LI AND EI COnHAND 


4663 
















4664 










.CODE FOR 'LI' COHHAND 




4665 


012512 


067 






CHDLI* STC 




jSET THE "C-BIT" 


4666 


012513 


365 






LnDLIl* PUSH 


psy 


iAND SAVE IT 


4667 


012514 








H0V5B 




fPASS THE COHHAND LIST EXECUTOR THE RHBASE ADDRESS 


CI) 


012514 


347 






hal 


4 




(1) 


A-l c 

01251j 


AAA 
000 






BVTC 
♦ DI It 







A I iO 

4668 


012516 


242 


A4A 

040 




< HUl'h 


RHBASE 


HOT IN HERE 


ALIO 

466V 


U12j2U 


024 


AAA 
040 






IOftB 


5 USED IN HERE 


Akld 
J to/U 
















Alii 

46/1 


U12j22 


Ail 

U41 


AOi 

U26 


AAA 


i VT 
LA J. 


HjIOAD+2 j'HfL' PNTS TO DEST+2 


ALT} 

46/2 


U12j2j 


0/2 


HKA 

234 


AAA 


i ftA 
LUH 


UBANUH 


i CURRENT UBA NUHBER INTO ACCUH 


ALII 

46/0 


A1 057A 


ILL 

266 






UnH 


H 


f THROW IN THE CURRENT BITS 


ALIA 

46/4 


U12jo1 


16/ 






nuv 


H»A 


JPUT IT ALL BACK 


A L"JK 

46/j 
















ALU 

46/6 


012 j32 


AC7 

Oji 






DCX 


H 


iNOU MAKE 'H»L« POINT TO ADDR +0 


ALII 

46// 


012jJ3 


AC7 






DCX 


H 




A £70 

46/d 


U12Di54 


A1 7 






DCX 


B 


iHAKE "BiC PAIR POINT TO SELECTED OFFSET FROH BASE 


ALIO 

46/y 


01253j 


A< 1 

012 






LDAX 


B 


JGET SELECTED OFFSET 


A / flA 

4680 


A4 AC"7 / 

012536 


206 






ADD 


H 


» ADD OFFSET TO THE BASE 


4681 


012537 


167 






HOU 


H»A 


»AND PUT THE WHOLE HESS BACK 


4682 


012540 


361 






POP 


psy 


5N0y GET STATE OF PROCESSOR FLAGS 


4683 


012541 


330 






RC 




ilF 'C SETfIT WAS AN LI AND WE ARE DONE 


4684 
















4685 










5CALL THRU IF 


■C CLR,, 


IT WAS EI AND UE HUST FINISH IT 


4686 


012542 


315 


357 


012 


CALL 


Ell 


} EXECUTE 'EI' CHD 


4687 


012545 


311 






RET 




JALL DONE 
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A 100 
4&D7 










iCODE FOR LI TYPE COWHAND ONLY USING NO OFFSETS, TAKING THE ADDRESSES 


46YU 










.EXACTLY AS PRESENTED,, 


GOOD FOR UBA OPERATIONS* WHICH REQUIRE NO OFFSETS 


46?1 


012546 


AH 

021 


026 


AAA 

040 


CHDUBAJ LXI 


DjIOAD+2 I'DjE' PNTS TO DEST+2 


46t2 


Q12jj1 


32j 






PUSH 


D 


fbHvL THE ADDKESS OF UBA/RH ADDRESS 


AkQI 




715 


707 




CALL 


M0V1BB 


iMnnr cnwc hat a 
*ntlvt bunt Uftlft 


AkQA 




7A1 






POP 


H 


fnUuH Ur Udh/KfI iNIU n?L 


AkQ c t 
*?07J 


A1 o^Ra 


A70 


054 




LDA 


UBANUH 


» CURRENT UBA NUMBER INTO ACCUH 


AkQk 
SOTO 


Ui*.JOi 


^kk 






0RA 


H 


} THROW IN THE CURRENT BITS 


AkOl 
467/ 


U12Do2 


1 £7 
16/ 






Hoy 


M»A 


5PUT IT ALL BACK 




ft 105/7 


71 1 
Oil 






RET 




rUE ARE DONE 


AkQQ 
















J47AA 

4 /My 










f CODE FOR DI COMMAND 




4/Ul 




A1 O 






CHDDIt LDAX 


B 


fGET DISP CODE TO SEE IF INDIRECT 


4/U2 


ft 10525 

Vi2jOJ 


0A7 

24/ 






ANA 


A 


» CHECK THE SIGN BIT 


A7A7 


A-i05£ / 
U12j66 


7£0 

,562 


OA1 

2vl 




JP 


DILOCL 


» AND JUMP IF NO INDIRECTION 


A7AA 
















A"? Ac 










f FALL TO HERE IF WAS INDIRECT 


4/06 


G12j/1 


1j1 






MOM 


LfC 


fPASS ADDR IN 'BfC TO 'HiL' 


A7A7 

4/w 


A1 0570 


1 Aft 
14U 






MOV 


HfB 






ft 10577 








DCX 


H 


J NOW BACK UP PNTR TO HI ORDER PCE OF INDIRECT WRD 


47AQ 


A 1057 A 


1 Aa 






HOV 


B»H 


SAND INTO B 


A71 ft 


ft 10575 


A57 






DCX 


H 


SNOW TO LO ORDER PIECE OF INDIRECT WORD 


4711 


Q12j76 


116 






HOV 


CrH 


»L0 ORDER PIECE TO C AND DONE 


4712 


012577 


003 






INX 


B 


i'BfC" MUST POINT TO SRC + 2 


4713 


012600 


003 






INX 


B 




4714 


012601 


021 


051 


040 


DILOCLi LXI 


D»DMDAT+2 i'DiE" POINTS TO DEST+2 


4715 


012604 


315 


323 


025 


CALL 


M0V18B 


iHOVE SOME STUFF AROUND 


4716 


012607 


315 


016 


013 


CALL 


DI1 


i EXECUTE THE DEPOSIT 


4717 


012612 


311 






RET 




? AND BACK TO COHHAND LIST 


4718 
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JCODE FOR WAIT COMMAND (FOR WAITING FOR A TAPE TO FINISH- FOR EXAMPLE) 




vJ.&OlO 








LriUWHi 1 ♦ 








A1 Oii 7 

U1261o 


2o/ 






AAH 


A 
H 


in TAP APPIIM 


4/2o 


A"i 4 A 

Q12614 


< *i7 

12/ 






MOM 


D.A 


fwM tLK U ? Int KtblbftK wt WILL Uoh rUK ilntUUi IrUUNi 


4/24 


A1 ni i c 
01261 J 


1 77 

lo/ 






MOM 


E»A 


iPi c* "jr 1 Tnn 
7LLK t lull 


A^K 

4/2D 
















4/26 


A1 i 

012&16 


7AC 
OVJ 






WAITLPi PUSH 


B 


*CAiir O-P 


ATI "J 

4727 


012617 


315 


"7 A A 

344 


025 


CALL 


CHKBIT 


irtiCPk* DTTC liCDCilC riCiiTPC OTATiiO TA OCT TC CCT/T C OCATliV^ 

?Lnfc.U\ Dilb vtKbUb UtvllrL biftiUb ill bfct ir btiU*c. KtRiJT/ 


A700 

4/2o 


012622 


7A1 

oOl 






POP 


B 


i&fTCTn&r r.p 


**/2Y 


A1 OA'n 
01262o 


7AA 

ovU 






RNZ 




fir J\C.Hi»l Di\ SC. If 110 UiS? UU Hwnl 


471ft 
t/OV 
















T/Oi 










I FALL THRU IF READY NOT 


OL i 


I/O*. 




7A^ 
OVJ 






PUSH 


B 


/Orfvu. Of L rf\UI! JL'UU $ l\UW i j. Uit 


*t/ 00 


01 SA 1 ?^ 

V It. Oil J 


OjC.0 






PUSH 


D 


ISAUE T I HE-OUT COUNT 

7 WflVt- i AHt_ UUI wwUi! I 


4714 




its 


1S7 

WW/ 


01? 

VIA. 


CALL 


Ell 


SDO ANOTHER EXAMINE OF DEVICE STATUS TO SEE IF READY NOW 


471S 










POP 


D 


5GET THE TIME-OUT COUNT 




vi.£.00&. 


101 

OvA 






POP 


B 


J RESTORE B»C 


A777 
*t/0/ 


A1 ^A77 

V 1^000 


A^7 






INX 


D 


i INCREMENT 


t/OQ 




171 
I/O 






MOM 


AfE 


5 SEE IF COUNT DOWN TO ZERO YET 


*?/ 07 


vliOOJ 


iut 






ORA 


D 


iUSE TOP HALF TOO 


A7AA 
4/4U 


U 12ooo 


7AT 
Ov£ 


216 


A05 


JNZ 


HAITLP 


iGO TRY AGAIN 


4/4i 
















4742 










5 FALL THRU IF DEVICE TIME'S OUT BEFORE GETTING A READY 


AHA.*? 

4743 


012641 


7A7 
303 


*}7A 

2/0 


025 


JMP 


DEVERR 


5G0 REPORT '?BT" AND THE FAILED PC 


4/44 
















4/45 










ICODE FOR TWAIT 


COMMAND 




A"? A / 

4746 


A 4 1/ A A 

012644 


"7 AC 

305 






CMDTMAITt PUSH 


B 


JFIRST SAVE THE BC POINTERS 


4/4/ 


A4 AC 

012645 


71 ST 

olo 


7E"? 
35/ 


A1 *1 

012 


CALL 


Ell 


JREAD THE CURRENT STATE AS IT IS NOW 


A"?AQ 

4/4o 


Ai 0Z5A 

U126DU 


7A1 
OUl 






POP 


B 


f RESET B TO A GOOD VALUE 






7A^ 
OvD 






PUSH 


B 


5 AND SAVE IT FROM DESTRUCTION AGAIN 


475A 


MIA*?* 


OlJ 


1AA 
0*H 




CALL 


CHKBIT 


iNQW SEE IF APPROPRIATE BIT IS SET 


4751 


UlZOJJ 


7A1 
OVl 






POP 


B 


i RESTORE 


4/D2 


U126D6 


7AA 
OUU 






RNZ 




5 RETURN IF BIT WAS SET AS DESIRED 


n/Do 


A1 OA**? 


7A7 
OUO 


T7A 
i/v 


A^ 


JMP 


DEVERR 


»ELSE.» GO SAY ERR* BIT WAS NOT SET AS DESIRED 


4/D4 
















*t/viJ 










JCODE FOR ERROR 


TEST COMMAND 


4/o6 


012662 


7A5 
OUO 






CMDERCHKI PUSH 


B 


jSAVE B>C 


4/j/ 


U 12000 


olD 


7AA 

o44 


02-J 


CALL 


CHKBIT 


J FIRST GO CHECK TO SEE IF ANY OF DESIRED BITS SET 


A 7C0 

4 /Do 


A1 0£i£ 

y 12666 


7A4 
OVl 






POP 


B 


i AND RESTORE 


A7 C ,Q 
*t/J7 


A1DAA7 
U12oo/ 


71 A 
OlU 






RZ 




JIF NONE SET» RETURN CAUSE ALL IS OK 


A7AA 
4/6U 
















A7A1 
9/01 










5 FALL TO HERE IF SOHE BITS SET. .HAD DEVICE ERROR 1 THEREFORE "BOOT" FAILED 


4/62 


A4 0£7A 

0126/0 


i Aft 
140 






BEMERRI MOV 


HiB 


»NOW COPY 'BjC TO *H»L' REGISTER 


4763 


012671 


151 






HOV 


L»C 




4764 
















4765 


012672 


042 


154 


040 


SHLH 


ERRCD 


j*H»L" NOW HAS FAILING PC 


4766 


012675 








INTOFF 




JLET ALL MESSAGES PRINT NOW 


(1) 


012675 


367 






RST 


6 


iGO EXIT FROM INTERNAL MODE 


4767 


012676 


257 






XRA 


A 


ICLR C-BIT, SO THAT IT WILL SET LATER, TO INDICATE ERR 


4768 


012677 


303 


312 


025 


JHP 


DEVEXIT 


?60 EXIT WITH MESSING WITH PRINT FLAGS 



VER 6*2 KS10 CONSOLE PROGRAH CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-NAY-79 16550 PAGE 3-154 
CHBS.H80 CHANNEL COMHAND LIST EXECUTOR 



4770 










fCODE FOR THE END COHHAND 


4771 


012702 


A*\4 

021 


"7 / A 

364 


A4 / 

016 


LnDtN* LXI 


DjHADOOO .GUARANTEE CSL BUS ADDR REG .EQ. AFTER XFR 


4772 


012705 


74 r» 

315 


4 / 

176 


ATP "7 

033 


CALL 


ADATF 


iHKilt THE CSL BUS ADDRESS KEG WITH S 


4773 


a 4 *i"i4 a 

012710 








INTurF 




»CLh INTERNAL MODE 


(1) 


012710 


367 






RST 


6 


juu EXIT Fhun INTERNAL NODE 


An a 

4774 


At 4 

012711 


A / ~i 

06/ 






bit 




» SET THE C-BIT» SO THAT IT UILL BE CLEARED LATER 


A"?"JC 

4775 


012712 


077 






BEVEXITi CMC 




i COMPLEMENT C-BITf SO IT UILL SAY ERRr OR NO ERR 


4776 


A4 m< T 

012713 


-?A4 

341 






POP 


H 


JTHROU OUT PSEUDO RETURN FROM STACK TOP 


A 777 
4/// 


A1 071 A 
01iV14 


541 






POP 


H 


ITHROU OUT THE SAVED 'HfL' 


A77Q 
4//0 


A1071 1 * 


7A1 

541 






POP 


H 


» AND RESTORE ALL THE REGISTERS 


A770 

1//7 


A1071 i 


701 
5^1 






POP 


D 


iTHAT HE SAVED 


A7QA 


A10717 


7A1 

5U1 






POP 


B 




A781 


sill! L\l 


A7A 
v/O 


AAA 
vvv 




MMI 


A»0 


} ACCUH HILL ALUAYS BE ON EXIT FROH CHD LIST EXECUTOR 


A7Q0 


A1 0701 


71 1 
511 






RET 
















» ROUTINE FOR HOMING 3 BYTES OF DATA 


A70A 
4/o4 










f , B»C HAS SRC+2..."D»E* HAS DST+2 




A 4 0707 

012/23 


AAI 

046 


AAO 

002 




M0V18B1 HVI 


Hf2 


!COUNT OF 3 IS HOB MANY TO MOVE 


4786 


A4 n-joc 

012725 


A* O 

012 






LDAX 


B 


J GET PIECE OF SOURCE 


A7Q7 
4/0/ 


A1 070A 
Uli/ZO 


7AA 

546 


AA7 
005 




ANI 


3 


J ONLY INTERESTED IN BITS 18»19 


/1 700 
4/00 


A1 077A 
Oli/50 


AOO 






STAX 


D 


JPUT AT DESTINATION 


4/07 


A 4 0771 
012/31 


A*. 7 
015 






OCX 


B 


J POINT TO NEXT RELEVANT BYTE 


A70A 

4/YO 


A4 0770 
012/32 


A77 
035 






DCX 


D 


iFOR SRC AND DST 


47y1 


012733 


Al O 

012 






H0V18XJ LDAX 


B 


J GET A PIECE OF THE SRC TO ACCUH 


A700 
4/7Z 


A1 077A 

Ulif/54 


AOO 






STAX 


D 


jAND PUT AT DESTINATION PLACE 


A707 

4/75 


A1 077«C 


A17 

015 






BCX 


B 


mm THE POINTER 


A7QA 
4/ 74 


UL£/5o 


A77 
055 






DCX 


D 


5D0HN THE OTHER POINTER 


47¥5 


A4 0777 
012/3/ 


AA£ 
045 






DCR 


H 


5 AND DOUN THE COUNTER. . 


47y6 


Al AA 

Q12740 


7AO 

302 


777 

333 


AO C 

025 


JNZ 


HQV18X 


{CONTINUE TILL HOVED 3 BYTES 


47?7 


A4 *VJ ATT 

012743 


*74 4 

311 






RET 




5THEN OUT 


47?8 
















a -win 

47?V 










JCOHHON ROUTINE FOR CHECKING DEVICE STATUS* FOR EITHER DEVICE ERRORS OR 


4800 










} READY BIT TRUE 


..MUST BE CALLED IMMEDIATLY AFTER AN 'EI.' COMHAND 


4801 


012744 


052 


012 


040 


CHKBIT1 LHLD 


EMBUF 


> GET CURRENT DEVICE STATUS INTO *H»L* 


4802 


012747 


013 






DCX 


B 


iMAKE B PNT TO H 


4803 


A4 I11CA 

012750 


A4 "J 

013 






DCX 


B 


} AND HAKE IT PNT TO +0 


4804 


012751 


012 






LDAX 


B 


{BYTE OF DESIRED INTO ACCUH 


4805 


012752 


245 






ANA 


L 


» COMPARE AGAINST CURRENT DEVICE 


4306 


012753 


300 






RNZ 




ilF NON-ZERO? NO NEED TO LOOK FURTHER 


4807 
















4808 


012754 


003 






INX 


B 


5 IF 1ST BYTE HAS ZERO, BUMP PNTR TO LOOK AT NEXT BYTE 


4809 


012755 


012 






LBAX 


B 


INEXT BYTE INTO THE ACCUH 


4810 


012756 


244 






ANA 


H 


5 COMPARE VERSUS DESIRED 


4811 


012757 


311 






RET 




{PLAIN RETURN,. Z BIT HILL BE SET APPROPRIATELY 
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4813 










.SBTTL ttt 'BC CMB *** 


4814 










} CODE WHICH PERFORMS THE VERY FAMOUS BOOT CHECK I 


4815 


012760 


315 


225 


005 


BCCHBJ CALL 


MRCMD 


jhrKE SUKE nRlHINE lb Si UrrfclJ 


4816 


012763 








INTON 




?SET UP INTERNAL nuDt 


(1) 


012763 


327 






RST 


2 


?bu SET INiEKNrL nuDE 


4817 


012764 








CLRB 


ERRCD 


fBEuIN BY CLEflruNy int EKKUK UJUEb 


4818 


012766 








CLRB 


ERRCB+1 


**4I!CT F! CAD t»fiTU UAI IfCC 

mUb! LLEhK bUIH HftLvEb 


4819 


001 






.IF NDFjNEEDRM 




4820 
















AGH 

4821 


VIA./ /V 








CLRRH 


BUSAD 


iUTI I fiCWCDATC A CTADTYklfi DlirCXD HC / A AAAAA „ A % 

jWILL utNthftit ft blAhi INb Rlrrth Ur \ 400000? 


/ 4 \ 
(1) 










RST 


4 




(1) 


ft 13771 


ft17 






.BYTE 


10. 




(1) 




A47 


AAA 

040 




.A DDR 


BUSAD+5 




A Gil 

4822 


ft1 T?7A 


A7A 
v/o 


A 4. A 
010 




MVI 


A ? "010 


*TUTC TiiDMC HI IT Tft BE* DTTft TM 7A..BTT 1 &tiT\ 

Hnib lUKNb UUi !U pt i>i!0 IN £q""dI\ LhNU 


4823 


A1077A 


ftAT 


A A t 

046 


AAA 

040 


STA 


BUSAM4 


i Ct'T TT 

t bt ! i 1 


A fit A 

4824 
















AdG 

4823 


ftl^ftftl 


ftftl 


AAA 

000 


AA4 
001 


LXI 


Bt"0400 


*QCT . T-ft 
J DC. i D-i? t-U 


4826 


ft1 "?ftftA 


7ft ^ 






BC.ALPJ PUSH 


B 


* qamc rniiMTPPQ 

f ORVt UUUnlLKQ 


482/ 




Oi J 


240 


A-l i 
Oil 


CALL 


DBCHD 


JtALUU 1 L 1 fit ULrUwl 1 DUw 


4828 
















482? 










J CHECK FOR FAILURE 




4830 


A 4 *TA4 A 

013010 


ATI 

072 


4 C A 

154 


A AA 

040 


LBA 


ERRCD 


J FETCH AN ERROR CODE 


4831 


AH "TA4 "? 

013013 


247 






ANA 


A 


JSET 8080 CONDITION CODES 


4832 


A 4 "7 AH A 

013014 


302 


371 


026 


JNZ 


BCA.ERR 


>G0 STANDARD ERROR REPORT IF ERR FOUND 


4833 
















Aft"? A 

4834 










rNO ERROR j GENERATE THE 


NEXT DATUM 


4835 


AM 7A4 "3 

013017 


A A 4 

041 


042 


040 


LXI 


H ? BUSAD 


5 POINT TO A BUFFER TO BE SHIFTED 


4836 


A 4 TP Ain 

013022 


315 


154 


031 


CALL 


SHR36 


.SHIFT 36 BITSCI.E, FLOAT A 1 OR 0) 


4837 


A 4 "TA^C 

013025 


AA4 

001 






.BYTE 


1 


{SHIFT ONLY ONE PLACE AT A TIME 


4838 
















4839 










J NOW CHECK FOR END OF TEST 


4840 


013026 


301 






POP 


B 


.GRAB UP THE CURRENT LOOP COUNTERS 


4841 


013027 


014 






INR 


C 


»UP COUNT FOR THIS DATAUM 


4842 


013030 


171 






MOM 


A»C 


(COPY TO ACCUM 


4843 


A 4 7AT4 

013031 


TP"? / 

376 


044 




CPI 


36. 


•NOW SEE IF FLOATED DOWN THE ENTIRE 36 BIT WORD 


4844 


A 4 7A77 

013033 


332 


004 


026 


JC 


BC.ALP 


5 JUMP IF NOT DONE A GROUP OF 36 YET., 


Aft AC 

4845 
















4846 










5HERE WHEN DONE A GROUP OF 36 » SEE IF THIS WAS FIRST OR SECOND TIME THROUGH 


4847 


013036 


005 






DCR 


B 


5 DECREMENT 'TIMES THROUGH THE LOOP" COUNTER 


4848 


01303? 


372 


062 


026 


JM 


BC.2ND 


rIF MINUS? TIME TO GET OUT. .80 NEXT PHASE OF TEST 


4849 
















4850 










5 HERE WHEN DONE FIRST WORD* TIME TO SET UP TO FLOAT A THROUGH A FIELD 


4851 










}0F ONES 






4852 


013042 








M0V5B 




5 MOVE 2ND DATA PATTERN 


(1) 


013042 


347 






RST 


4 




(1) 


013043 


000 






.BYTE 







4853 


013044 


055 


026 




.ADBR 


BC.DB2 


UNIT 2ND PATTERN TO BE (377?77 lf 777777) 


4854 
4855 


013046 


042 


040 




.ADHR 


BUSAD 


? AND THIS IS THE PLACE THAT THE DB COMMAND USES 


4856 


013050 


016 


000 




MVI 


C f 00 


! RESET THE COUNTER 


4857 


013052 


303 


004 


026 


JMP 


BC.ALP 


5 AND GO ROUND FOR THE SECOND TIME 


4858 


013055 








BC.BB2! D 


377i777if777f777 
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4oo0 










5 B00TCHECK CODE FOR EXECUTING A TEST OF THE CRAM AND ITS ABILITIY TO HOLD 


4861 










f ALL ONES AND ZEROES? AND TO SEE IF ITS ADDRESSING LOGIC WORKS AS 


4842 










ill SHOULD,... 






4863 


013062 


041 


000 


000 


BC.2ND! LXI 


H>00 


s START AT CRAM ADDRESS 00 


4864 


013065 


315 


235 


026 


BCBLP5 CALL 


W.CRMZ 


i h r. v : r r* flip* i * "r^rJMi i>f th n t npftftP'rt 

? WRITE THE LOCATION WTH ALL ZEROES 


4865 


013070 


043 






INX 


H 


? UPDATE TO NEXT CRAH ADDRESS 


Aft/ / 

4866 


013071 


4 "5 A 

174 






MOM 


A»H 


?N0w CHELK TO SEE IF DONE hLL 


486/ 


013072 


"7 A / 

346 


010 




ANI 


"010 


* T/i ATirtft^ftr 1 AT M A AAA B VfTO'S 

j IS ADDRESS A! 4000 YET? r 


Aft/ ft 

4868 


013074 


"?H ft 

312 


A/ C 

065 


Aft/ 

026 


JZ 


BC.BLP 


* rtAftir' a un "?rrrft *wCftr*r ?r iiftT urt 

fBACK AND ZERO nORt I? NOT it! 




























JNOW READY FOR COMBINED 


AriTiDCCO AWri TiATA tcc-t 

HUlJKtbb Hfiii Uft i A itbi 


48/1 


A1 7A"7"7 


AA L 

046 


AAA 
UUU 




mi 


HiOO 




407£ 


A171 A1 


71 K 


7 OA 


A1 A 
U14 


BCBLl 4 . CALL 


CADMR 




4o/o 


A171 AA 








PUSH 


H 


?H!hU bHVt if rUi\ H wfllLt 


AQ1A 

4o/4 


A1 71 AC. 


71 c* 


OAA 

2U4 


A1 7 
UlO 


CALL 


CP1 


¥LLUtl\ I U be. i 1 fib. UJNitNib Ur mm LUL ill 








A01 


A15 
UiJ 


CALL 


RCINT 




4o/o 


A171 17 


AA1 
v41 


AAA 


AAA 
UUU 


LXI 


H»00 


5 DATA TO VERIFY AGAINST IS 00 


AOl 1 


A1 71 1 L 


715 


lb£ 


AO£ 


CALL 


V.VER 


> VERIFY CONTENTS OF C.R. TO BE ALL 


4o/o 


A1 71 01 


715 


lib 


AOZ 

U26 


CALL 


A.CRMO 


»N0U WRITE THAT LOCATION WITH ALL ONES 


AQIQ 
4q/7 


A1 11 OA 

uloli.4 


i541 






POP 


H 


t RETRIEVE CURRENT CRAM ADDRESS 


4oov 


A1 71 


AA7 

043 






INX 


H 


5 UP TO THE NEXT ADDRESS 


4881 




1 7 A 

1/4 






MOV 


AiH 


fCOPY HI HALF TO ACCUH- SO CAN CHECK FOR 4000 


4882 


A4 *7"l ft"? 

013127 


lit 

346 


A 4 A 

010 




ANI 


"010 


? ADDRESS AT '4000'?? 


4883 


013131 


312 


4 A4 

101 


026 


JZ 


BCBLl 


J BACK INTO LOOP IF NOT YET,, 


Ann a 

4884 
















4QOC 

4885 










5WHEN DONE HERE 


, FALL INTO MEMORY PART OF BOOT CHECK 


4836 










SA PAGE M0S MEMORY CHECK 


4887 


013134 


315 


064 


020 


BC.3RB5 CALL 


ZMCMD 


» FIRST CLEAR THE ENTIRE MOS MEMORY (AT LEAST TRY) 


















AOOO 


A1 71 77 








M0V5B 




5 SET UP THE INITIAL DATA 


i 1 \ 


A17177 


on/ 






RST 


4 




Kit 


A1 11 AA 


AAA 

vvv 






.BYTE 







4890 


013141 


256 


022 




♦ADDR 


ONES 


J DATA FOR DEPOSITING IS ALL ONES 


4891 

iftftft 


013143 


047 


040 




.ADDR 


DMDAT 


»»> THE DEPOSIT BUFFER 


48V2 
4893 


013145 








M0V5B 




»SET UP THE STARTING MEMORY ADDRESS 


(1) 


013145 


347 






RST 


4 




(1) 


013146 


000 






.BYTE 







Aftft A 

48?4 


013147 


ft A A 

244 


Aftft 

022 




.ADDR 


MA1000 


> START AT ADDRESS 1000 


4895 

inn; 


013151 


A 4 "1 

017 


AAA 

040 




.ADDR 


MEMAD 


i,, MEMORY ADDRESS BUFFER 


48tq 

407/ 


A1 71 C7 

013153 


71 K 

31j 


A7Z 

036 


012 


BC.CLF", CALL 


EM2 


5 EXAMINE A LOCATION 


AOOO 
4070 


A1 71 *,L 


71 5 


AOO 

till 




CALL 


CMP36 


j THEM COMPARE RESULTS,, DATA SHOULD BE ALL ZEROES 


AOOO 
4077 


A1 71 Li 


A10 


AAA 

U4U 




.ADDR 


EMBUF 


5 THIS IS THE ACTUAL READ-IN DATA 


AOAA 
4VUU 


A1 71 £7 


TLA 

464 


A1 L 

U16 




.ADDR 


ZEROES 


(VERSUS 36-BITS OF O'S 


4?01 


A1 71 ZC 

01316j 


7A^J 

302 


7Aft 

342 


026 


JNZ 


BC.CERR 


JGO TO ERROR REPORT IF NOT ALL ZEROES 


4902 
















4903 










.FALL THRU IF THAT WENT OK. 


4904 


013170 


315 


234 


012 


CALL 


DM2 


»N0U DEPOSIT ONES INTO THAT LOC AND CONTINUE 


4905 
















4906 


013173 


315 


036 


012 


CALL 


EM2 


J WHILE WE ARE AT IT, WE'LL CHECK ALL ONES 


4907 


013176 


315 


022 


033 


CALL 


CMP36 


iBQ THE 36-BIT COMPARE 


4908 


013201 


012 


040 




♦ADDR 


EMBUF 


fTHIS STUFF JUST READ IN 


4909 


013203 


256 


022 




.ADDR 


ONES 


? AGAINST ALL ONES 
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4910 


013205 


302 


342 


026 


JNZ 


4911 












4912 


013210 


052 


017 


040 


LHLB 


4913 


013213 


043 






INK 


4914 


013214 


174 






MOV 


4915 


013215 


346 


004 




AHI 


4916 


013217 


042 


017 


040 


SHLD 


4917 


013222 


312 


153 


026 


JZ 


4918 












4919 


013225 


311 






RET 



BC.CERR 5 IF BAD* SAY SO*. 

HEHAD > FETCH UP THE CURRENT MEMORY ADDRESS 

H 5 UPDATE TO THE NEXT 

AiH iCOPY HI PIECE TO THE ACCUM 

"04 5 SEE IF REACHED ADDRESS 2000 

MEMAD (REPLACE THE UPDATED ADDRESS FIRST 

BCCLP rAND CONTINUE IF HAD NOT REACHED THE MAX 

j RETURN ..DONE ALL BOOT CHECK OK 
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4921 
4922 
4923 
4924 



4¥25 


013226 


1 AC 

345 






H»CR(1u» PUSH 


H 


4926 


013227 


041 


37/ 


377 


1 VT 

LXI 


Hf-1 


4927 


0132i2 


303 


244 


026 


JHP 


U.LuC 


4928 














4929 


013235 


315 


320 


014 


W.CRMZ! CALL 


CABWR 


4930 


013240 


345 






A.CRMZJ PUSH 


H 


4931 


013241 


041 


000 


000 


LXI 


HfOO 


4932 


013244 


016 


007 




W.L0C5 MVI 


C»7 


4933 


013246 


171 






W.LPi MOM 


AiC 


4934 


013247 


062 


010 


040 


STA 


CRHFN 


4935 


013252 


315 


263 


014 


CALL 


WFUNC 


4936 


013255 


015 






DCR 


c 


4937 


013256 


362 


246 


026 


JP 


W.LP 


4938 


013261 


341 






POP 


H 


4939 


013262 


311 






RET 





I SUBROUTINES REQUIRED FOR THE CRAM TESTING 

J SUBROUTINES FOR WRITING ALL ONES AND ALL ZEROES INTO A SELECTED CRAM 
{LOCATION,. DESIRED ADDRESS PASSED IN THE H?L REGISTER (FOR U,XXX CALLS) 
iUSES CURRENTLY SELECTED ADDRESS FOR (A, XXX CALLS) 
JSAVE H»L 

JHiL TO ALL ONES INDICATES THE ALL ONES DATA DESIRED 
J GO COMMON CODE 

JWRITE DESIRED ADDRESS 
iSAVE H»L 

JSET TO ZERO, DATA IS ALL ZEROES 
I TAKES 8 FUNCTION WRITES TO DO ALL OF ONE CRAM LOC 
iGET CURRENT FUNCTION TO ACCUM 
»PUT FUNCTION INTO LOC USED BY STANDARD ROUTINE 
J WRITE ONE OF THE 8 PIECES OD A CRAM LOC 
I DOWN COUNT 

{AS LONG AS ,6E, Oi KEEP GOING 
J HERE WHEN DONE ALL 8 
tNOW GET OUT OF HERE. 
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4¥41 










? ROUTINE TO MERFIY THAT A CRAM LOCATION IS INDEED ALL ONES OR ALL ZEROES* 


4y42 










SN0 ARGUMENTS PASSED TO THIS ROUTINE 


4943 


013263 


042 


316 


040 


it urn* pih Ti 

V*VER* SHLD 


CRMBFr014 J ALL D0NT CARE L0CS OF THE 'READ" ARE FUDGED 


4944 


013266 


042 


320 


040 


SHLD 


CRMBFr016 f TO MATCH EXPECTED DATA 


AD AST 

4945 


A4 

013271 


A An 

042 


322 


AAA 

040 


SHLD 


CRMBF+ rt 020 i THERE ARE 12 D0NT CARE LOCATIONS 


4946 
















4947 


013274 


042 


332 


040 


Ol If Ti 

bHLD 


CRMBF+ rt 030 i SOME ARE VARIOUS ADDRESS ( NXT/CURRENT/SUBRTN ) 


AO AO 

4948 


013^/7 


042 


Ilk 

334 


AAA 

040 


bHLU 


CRMBFr032 ? AND SOME ARE JUST UNBUFFERED COPIES OF THE 


4V47 


A1 71 AO 

vli,5v2 


AAO 

042 


77Z 

336 


AAA 

040 


QUI T\ 


CRMBFr-034 5 BUS 


47JV 


















A1 "77AC. 


17 c , 






ilUV 


n ? u 


,*mqu COPY EXPECTED DATA INTO 'Bit" PAIR 


47 J£ 




A c ,7 

VJ/ 
















11/ 






IlUV 


b? n 


f I nun riUVu 




A177< A 


17A 
1/4 






MRU 

nuv 


AiH 


i NEED BOTH HALVES PLEASE 




Aim 1 


AR7 

VJ/ 






PMa 




j COMPLIMENT 


47 JO 




1 A7 






MftH 

nuv 


BiA 


J THEN MOVE 


4Yj/ 
















4Vjo 




AiH 
041 


7AO 

302 


AAA 

040 


1 VT 

LAi 


HvCRMBF 


)N0y POINT TO BEGINNING OF BUFFER WHERE EXPECTED 




013316 


136 






1 1 rip! ri* unu 


E?M 


t IS KEPT,. PROCEED TO COPY BUFFER DATA INTO 


4960 


01331/ 


AA7 

043 






TkJV 


H 


} (UPDATE POINTER) 


4Vol 


013320 


126 






H0M 


DiH 


» THE DrE REGISTER PAIR 


Aft / *\ 

4962 


013321 


A ATf 

043 






INX 


H 


J AND UPDATE MEMORY POINTER AFTER EACH HOVE 


4963 


013322 


353 






XCHG 




JSWAPf SO NOU 'HiL* HAS BUFFER t 'Of E* HAS POINTER 


4964 


013323 


A4 4 

011 






DAD 


B 


»ADB COMPLIMENT TO EXPECTED, , .SHOULD GET 0, 


AOLC 

496j 


A1 7T"M 

013324 


043 






INX 


H 


i TWO'S COMPLIMENT , THAT IS,, 


ACL L 

4966 


A4 770C 

013^25 


i 7C 

1/5 






MOV 


A,L 


? PIECE TO ACCUM 


4967 


013326 


n/ a 

264 






0RA 


H 


i'QR' IN THE OTHER PIECE 


4968 


013327 


302 


352 


026 


JNZ 


BCBERR 


J AND GO HANDLE ERROR IF RESULTS .NE. 


4969 
















4970 










!Y0U FELL THROUGH TO HERE IF DATA CHECK WAS OK** 


4971 


013332 


353 






XCHG 




»SWAP,,N0W 'HrL' HAS POINTER » 'D»E' HAS 00 


4972 


013333 


076 


342 




MVI 


A»«CRMBF+32,>r0377> > CHECK IF DONE 


4973 


013335 


275 






CMP 


L 


ISEE IF AT LAST LOCATION IN LIST 


4974 


013336 


302 


316 


026 


JNZ 


V.BCLP 


5 JUMP BACK IF NOT YET 


4975 


013341 


311 






RET 




5 ELSE OK TO RETURN 
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*** 




CMB *** 






4977 










; ERROR REPORTING 




4978 


013342 


AST 


A17 
Ui/ 


040 


BC.CERR! LHLD 


MEHAB 


* HP A ft MP CAT I P7l NFM AnrtprQC 
ful\Re Ur r Hi 1X1' nLn Hi»L»r\LOD 


4979 


013345 


AAA 


ivv 




MMI 


R>"0100 


JRETT A DTT Tft QFT f Ki PPPfiP PPT NTH! IT 
fuCi H oil lU Qui in CixfUm r l\in 1 UU 1 


4980 


013347 






026 


JHP 






4981 


013352 


Ota 






BCtBERRJ 


POP 




4982 


013353 


AAA 
VUG 






HVI 


B,"0200 


SteTT TA QPT CAP PPAM CATI liPCQ 


4983 


013355 








POP 


H 


»ynu fiATur/p up tup* riippiTKiT ppam Annpiroc 


4984 


013356 


042 


154 


040 


BCC.ERRJ SHLB 


ERRCB 


JSAVE 1 BYTE BY DEPOSITING TWICE 


4985 


013361 


174 






MOV 


A>H 


SHI HALF TO THE ACCUM 


4986 


013362 


260 






0RA 


B 


J THROW IN A WEIGHT SO NUMBER WILL DIFFER 


4987 


013363 


062 


155 


040 


STA 


ERRCDH 


5 PUT NUMBER INTO ERROR CODE L0C 


4988 


013366 


303 


376 


026 


JMP 


BCB.ERR 


(AND GO PRINT OUT THE CORRECT ERROR STUFF 
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AOQA 










or a ruD* 
BtfiitKht 


POP 


B iGET COUNTER OFF THE STACK 


4991 


0133/2 


171 

1/1 






nuv 


A>C 


J SUBTEST TO ACCUH 


4992 


013373 


062 


154 


040 


STA 


ERRCB 


} PLACE FROM WHICH TO REPORT ERRORS 


4993 


013376 








BCB.ERR! CLRB 


HOPNT 


» GUARANTEE PRINTING ON 


4994 


013400 








PLINE 


ERRMSG 


i'TBC* 


(1) 


013400 


337 






RST 


3 


» PRINT LINE OF CHARS 


U) 


013401 


201 


037 




♦ABBR 


ERRHS6 


f BUFF TO PRINT 


4995 


013403 


041 


154 


040 


LXI 


HrERRCD 1 POINT AT THE ERROR LB. 


4996 


013406 


315 


31? 


030 


CALL 


P16 


f PRINT 


499? 


013411 


303 


153 


032 


JMP 


MHERR 


fOUT 



4998 000 .ENBC 
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5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
500? 
5010 
5011 
5012 
(1) 
(1) 
5013 
5014 











.SBTTL ttttKSlO CONSOLE SUBROUTINE FILE 










(SUBROUTINE TO CHECK IF THE CPU IS RUNNING? AND IF IT IS? 










?T0 ABORT THE COMMAND THAT CALLED IT 


013414 


341 






.run..; 


POP 


H 


f HUST FIX THE STACK 


013415 


365 








PUSH 


PSU 


f SAME f*LAb6(SrATt OF IHE 8 C— BI i 


013416 


072 


165 


040 




LDA 


RNFLG 


(CHECK SOFTWARE RUN FLAG TO bit If CPU CLK 


013421 


247 








ANA 


A 


»IS IT ZERO? ( OR NOT ZERO 


013422 


302 


027 


027 




JNZ 


YSRUN 


(IF NOT ZERO ? JMP OFF TO PRINT MESSAGE 


013425 


361 








POP 


psy 


»0THER«ISE( RESTORE FLAGS 


013426 


311 








RET 




(AND OUT 


013427 








YSRUNt 


PLINE 


RN, 


(MESSAGE TO SAY RUNNING., 


013427 


337 








RST 


3 


(PRINT LINE OF CHARS 


013430 


206 


037 






,ABBR 


RN. 


SBUFF TO PRINT 


013432 


303 


153 


032 




JMP 


MMERR 


(NOU GO RESTART OURSELVES 
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CA1 I 










{ROUTINE TO REPORT A PARITY ERROR WHEN DETECTED BY THE 8080 CONSOLE 


RAI 7 


013435 








RPTPARJ CLRB 


N0PNT 


i TURN TYPING ON 


^AID 
JVlb 


01343? 


257 








XRA 


A 


i ACCDM MUST BE ZERO 


c.Ai Q 


013440 


323 


OA£ 






OUT 


CLKCTL 


? KILL CLKf SO PAR ERR CLRING WONT RELEASE THE CPU CLKS 


ST AO A 
JU«CV 


















JU21 


001 






.IF 


DFiSCECOD 




5022 


A1 7AA*> 


A7*? 


326 


042 




LDA 


SCOFF 


.GET FLAG TO SEE IF WE CAN TRY FOR SOFT RECOVER 






^A7 








ANA 


A 


iSET 8080 FLAGS 


jv24 






114 


AO"? 




JNZ 


HRDERR 


5 IF FLAG .NE. 0» THEN WE WILL NOT RECOVER 


tJAOS? 










{FIRST THING WE NEED TO DO IS CHECK FOR CRAM/CRA PARITY ERRORS , AND DECIDE 












i IF WE CAN RECOVER FROM THEM 




ft HAS 1 










LONG, DELAY 1 


?LET DISK TRAFFIC STOP 


M ^ 

\ A / 


ft1 W1 

Vii/Twi 


041 


7.1 A 


AAA 
Uvv 




LXI 


H>200, 


t 1 f SET UP THE TIMING COUNT IN H»L REG 


/ 1 \ 
Ml 




11 S 


1 1t 


A1 A 




CALL 


LTL00P 


5 AND GO BELAY ABOUT 1 SECOND FOR EACH (300 COUNT) 




ft1l4 C !? 


07A 

V* 


ivV 






MVI 


A»SMPAR J GET WHICH REG HAS PARITY INFO IN IT 






Ql J 


*U7 

£.0/ 


A1 7 




CALL 


ER.UTL 


{READ DATA»PARITY BITS RETURNED IN ACCUM 


^A7A 


A1 1Akk 


A c .7 








CMA 




5 INVERT SO THAT .TRUE, ,EQ. HI 


■Wit 


013465 


346 


AOO 






ANI 


"022 


{SEE IF CRA/CRM ERROR TYPE 


^An 


013467 


312 




A^7 




JZ 


HRDERR 


5 IF N0» GO FOR A HARD ERROR 






























5WELL» 


LETS SEE 


IF MEM BUSY OR I/O BUSY 




013472 


333 


1 AH 






IN 


R.BUSY 


{*****I/Q RD 102***** 


CAT Z 

□036 


013474 


057 








CMA 




(FIX HARDWARE COMPLIMENT 


5037 


013475 


346 


060 






ANI 


"060 


(SEE IF EITHER OF THOSE TWO BITS SET 


5038 


013477 


107 








MOM 


B»A 


{SAVE RESULTS OF THIS 'AND' FOR A BIT 


503? 


013500 


333 


101 






IN 


REFERR 


fSEE IF MEM REFRESH ERR EITHER 


5040 


013502 


057 








CMA 




(FIX HARDWARE INVERSION 


5041 


013503 


346 


001 






ANI 


1 


(ONLY KEEP THE REFRESH BIT 


5042 


013505 


260 








0RA 


B 


{THROW THE TWO TOGETHER,. IF RESULTS .EG. 0> THEN ALL OK 


5043 


013506 


312 


251 


027 




JZ 


SOFTERR 


J IF NOTHINGr GO TRY FOR THE SOFT ERROR RECOVERY 
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CTA4C 

504 J 










{GET TO HERE IF ERROR 


ETA k i 

5046 


013511 








NR5 


PLINE 


NKSCE 


(1) 


013511 


337 








RST 


7 

6 


li) 


013512 


232 


027 






.ADDR 


MRbCE 


5047 


000 






.ENDC 






j04o 
















504y 
















^A C ,A 










HRDERRS CLRB 


LnlNr Ho. 








l&A 


AAA 




r-Ai I 
UHLL 


Pi PltQP 














Pi TMF 


P&PMCft 

r HfvnaU 


ii \ 
\it 


A1 


111 

00/ 








l\0 I 


O 


i 1 \ 


At "l c , r t r > 


iOi 


A77 

Oo/ 








PAPMQft 

r Rf\nGu 


CA57 
















Dvj4 




777 

000 


1 AA 






in 


QMPAP 

OnrRft 


CACC 

jOjj 


A1 l^L 


A57 








wnR 






A 17517 

ViOJ£/ 


71 5 
OiJ 


7AjS 

304 






LflLL 


DDB7TA 

roDl iR 


CAE"? 

5057 


A1 7E"71 










r or BLt 






A1 7571 


71 7 

01/ 










1 




m mil 


AAA 








.BYTE 


or Rift 


5AC.Q 
JVJQ 


A 1757 A 


777 
OOO 


7A7 
OUO 






IN 


uouo 


jU5¥ 


A1757A 


A 1 ?? 








CHA 




5060 


013537 


346 


AA4 

001 






ANI 




CA/ 1 


013541 


315 


7AA 
OU4 


A7A 




CALL 


roDi iR 


DU6Z 


013544 










PSPACE 




/•7\ 


013544 


317 








RST 


1 

i 


\£/ 


013545 


040 








.BYTE 


SPACE 


5063 


013546 


333 


4 AT 

103 






IN 


"0103 


5064 


013550 


057 








CHA 




5065 


013551 


346 


360 






ANI 


"0360 


5066 


013553 


315 


031 


017 




CALL 


P8CRLF 


5067 


013556 


315 


271 


032 




CALL 


CLRRN 


5068 


013561 


315 


315 


032 




CALL 


LTFLT 


5069 


013564 


303 


255 


001 




JHP 


REINI 


5070 


001 






.IF 


DF»SCEC0D 



S CONSIDERED NON-RECOVERABLE 

»'?NR-SCE', N0N RECOVERABLE-SOFT CRAM ERROR 
f PRINT LINE OF CHARS 
f BUFF TO PRINT 



SAY NOT TO REPORT AGAIN I AGAIN 
iEXIT FROM USER MODE 
MESSAGE TO CTY 
(PRINT LINE OF CHARS 
BUFF TO PRINT 

***** 1/0 RD PARITY ***** 

(FIX THE HARDWARE INVERSION 

AND PRINT IT OUT WITH THE ERROR MESSAGE 

i SEPARATE THE 8 BIT DATUMS 

GO PRINT CHAR IN TRAILING BYTE 

iCHAR TO PRINT 

READ "DPH PARITY BIT' 

IFIX CPU INVERSION 

ONLY INTERESTED IN BIT 'DPH PAR ERR' 
iAND THEN PRINT THE 'DPH PAR' DATA 
AGAIN > SEPARATE BY SPACES 
(GO PRINT CHAR IN TRAILING BYTE 
CHAR TO PRINT 

(READ REG THAT HAS R PAR RIGHT i R PAR LEFT 
FIX THE HARDARE INVERSION 
(KEEP ONLY THE 2 "R PAR" BITS 
PRINT IT 

(CLEAR THE SOFTWARE 'RUNNING' FLAG TOO 
PARITY ERROR LIGHTS THE FAULT LIGHT 
(AND GO RE-INIT..PAR ERRS ARE FATAL 
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? COMMAND LIST FOR READING UBA" INFO 


5073 


A 4 "7C/ T 

013567 








HfcA Oft* I IDA 7Z7. AA1 




/ i \ 
(1) 


A4 "jm 
013j67 


001 






.BYTE 001 & 377 




i 4 \ 
(I) 


A4 7C"JA 

013570 


346 






.BYTE Q.l 




(1) 


A 4 7C*?4 

013j/1 


A77 
0/3 






.BYTE Q.2 




CA"J A 

5074 


013572 








ENBLST 




/ 4 \ 

(1/ 


A4 ICTi 

013572 


AAA 

000 






.BYTE 




f 4 \ 
(1) 


A4 tET? 

013573 


AAA 

000 






.BYTE 




J 4 \ 

\u 


A 4 TrC"*J A 

013574 


AC A 

050 






.BYTE <12*4> 




507u 














5076 










JRH11 COMMAND LIST FOR CHECKING FOR RECOVERABLE % N0N RECOVERABLE 


5077 










tCTATCO AC TS4C PHKITDfil 1 CD 




«SA7Q 

jU/o 


U13J/J 












/ 1 \ 


ai miK 

VlOJ/J 


77A 






DVTC 1 






A17 c ,7£ 


AAA 






PYTT P Aft £ 177 
*d\ It f *vv ft 3// 




11; 


A1 7577 


AO 7 
U*.3 






♦ Dili: lUI 




E*A"?0 
JV/7 


A1 7ZAA 

U136UU 








CDDTCT ZAAAA 

thh 1 b I ovOOU 


i tcct rno CATAl rDDC 
! Itsl run rHIftL tnnb 


11/ 


AI 74 Aft 

vl36Uv 


AAA 


1 AA 




AnriD ZAAAA 




/ 1 ^ 


A1 7£A*"i 


AAA 






BV7T /1A*A\ 
*DJlt \lv*4/ 




SAOA 


AI 7£A7 

Ulo603 








fcl* U//G?r*l£ 


jcvam nPTiic STAriie oca 

ftAHn lIKivt -5 1 H 1 US fttU 


/ 1 \ 
(1) 


AI 7ZA7 

013603 


77 A 

3/4 






t«vTr n i 
♦hilt u*l 




(1) 


A4 T/Ai 

013604 


A4 *~t 

012 






DVTC D 1 ^ 777 

♦ Dllt r#U f 13// 




(1) 


A 4 *7 / AC 

013605 


Am 

023 






♦ But U»2 




5081 


A4 f i A / 

013606 








CDDTCT A A AAA 

tKKlbs 4UvvU 


rLntUn Irtftl bill ruh thha 


f 4 \ 
(1) 


A 4 "7 / A I 

013606 


AAA 

000 


4 AA 

100 




ATiTiD A AAA A 

« HliUK 400UU 




(1) 


013610 


AAA 

040 






*oT It \10*4/ 




5082 


A4 "7/44 

013611 








Ckifii OT 

fcNuLb 1 


irlthD ir HLL 


£1) 


013611 


000 






♦ BY It 




(1) 


A4 "7 / 4 *\ 

013612 


AAA 

000 






DVTC A 

* BY I h 




/ 4 \ 
(1) 


A4 "7/ 4 *7 

013613 


ACA 

050 






CVTC -**1 O^A*'. 

♦ Dili: \L-f?4/ 




5083 














5084 


A4 1 1 4 A 

013614 








RH ♦ EXE I EL D7?6>p400 


?A TEMPLATE FOR RH EXAMINES 


(1/ 


A4 7 / 4 A 

013614 


77A 
£/4 






♦BYTE Q.l 




Ml 

ID 


A1 7Z1 1; 


AAA 






♦BYTE F\00 I 377 




\l) 


A1 7X1 L 


A07 






♦BYTE Q.2 




jOoj 


A4 1L4 7 

013617 








ENBLST 


(THAT'S ALL WE NEED FOR THIS 


\D 


A4 7/ 4 7 

01361/ 


AAA 






♦BYTE 




/it 
(D 


A4 7iOA 


AAA 






♦BYTE 




(D 


A4 11 *\4 

013621 


ACTA 
050 






♦BYTE <12$4> 




5086 














5087 


A 4 "7 / On 

013622 


AAA 

000 






SAMLST * .BYTE P.00 


» READ 776700 


5088 


013623 


002 






♦BYTE P.02 


f READ 776702 


5089 


013624 


004 






♦BYTE P.04 


} READ 776704 


5090 


A. 4 ~t I 'SC 

013625 


AA / 

006 






♦BYTE P.06 


J READ 776706 


5091 


013626 


010 






♦BYTE P. 10 


f READ 776710 


5092 


013627 


032 






♦BYTE P. 32 


(READ 776732 


5093 


013630 


034 






♦BYTE P.34 


I READ 776734 


5094 


013631 


377 






♦BYTE -1 


f END OF LIST MARKER 


5095 










{THE ASCII HESSAGES REQUIRED FOR PARITY RECOVERY 


5096 


013632 


077 


116 


122 


nrsce: .asciz/?nr-sce / 


»N0T RECOVERABLE SOFT CRAM ERROR 


5097 


013643 


045 


123 


103 


0K8CEJ .ASCIZ/XSCE / 


f RECOVERABLE SOFT CRAM ERROR 
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5099 
5100 
5101 
5102 
5103 
5104 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 
5119 
5120 
5121 



013651 


021 


344 


040 


013654 


315 


171 


030 


013657 


312 


114 


027 



013662 
013664 



076 001 
323 204 



013666 042 344 040 



5N0U GET THE CURRENT CRAM ADDRESS t CHECK FOR HARD CRAM ERRORS * 
» (NOTE? A HARD CRAM ERROR IS A CRAM PARITY ERROR OCCURRING AT 
» THE SAME CRAM ADDRESS MORE THAN ONCE IN A ROM) 

SQFTERR. LXI D.SCEADR I *B»E i PAIR WILL POINT AT THE DESIRED 

CALL BREAK tGO CHECK IF CURRENT .EG* DESIRED.. 

JZ HRDERR f IF YES. JUMP 'CAUSE ITS A HARD ERROR 

SSOFT CRAM ERRO RECOVERY CONTINUED..,. 

> RECOVERY BEGINS BY ZAPPING THE PE<1) FLOP SO HE HAY CATCH ANY ADDITIONAL 
i PARITY ERRORS 

MVI A»l JBIT TO RESET CRAM C.R. I PE(1) 

OUT CRMCTL ittttt I/O WRT/204 ***** 

? fall thru if address not the same 

notsame: shld sceadr ;save it as the neu 'previous 1 

;nou check RHll to see if this failure is recoverable for the 

> MONITOR. 8080 HILL SIMPLY EXECUTE A CHANNEL COMMAND LIST 
»0F 'ERRTST' f WITH THE CORRECT ERROR BITS CHECKED FOR 



013671 


041 


175 


027 


LXI 


HfRH.TST 


i POINT TO ERROR CHECKER COMMAND LIST 


013674 


315 


023 


025 


CALL 


CHNXCT 


» EXECUTE THAT LIST 


013677 


332 


111 


027 


JC 


NR 


IIF BADf SAY NOT RECOVERABLE 



f ELSE.,. FALL INTO THE SOFT RECOVERY CODE 
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5123 
5124 
5125 
5126 
5127 
5128 

5129 013702 
U) 013702 

(1) 013703 

5130 013705 

5131 013710 

5132 013713 

(2) 013713 
(2) 013714 

5133 013715 

5134 013720 

5135 013721 
5136 

5137 
5138 

5139 013723 

5140 013726 

5141 013731 
(1) 013731 

5142 013732 

5143 013735 
(13 013735 

5144 
5145 
5146 

5147 013736 

5148 013741 

5149 013744 

5150 013746 



337 

243 027 

041 344 040 

315 317 030 

347 
002 

315 026 023 
257 
323 



100 



041 167 027 
315 023 025 

327 

315 357 012 
367 



001 214 027 

021 172 040 

076 006 

315 Oil 033 



i FINALLY GET TO HERE IF THIS THING LOOKS RECOVERABLE, NOW WE MUST 
j BEGIN SAVING THINGS,,, 

f FIRST. ♦ GET THE CURRENT DISK UBA NUMBER TO SET UP THE RH11 REGISTER 

f SAVING, THEN WE MUST SET UP THE RH11 BASE REGISTER ITSELF 

» WHILE WE ARE AT ITi MIGHT AS WELL PRINT A LITTLE MESSAGE SAYING WHAT WE ARE 

i DOING IN HERE 

OKSCE 5 ERR MSG ! Z5CE* SOFT CRAM ERROR 

3 i PRINT LINE OF CHARS 
OKSCE f BUFF TO PRINT 



RECVR5 



PLINE 
RST 
,ADDR 
LXI 
CALL 
PCRLF 
RST 
♦BYTE 
CALL 
XRA 
OUT 



HfSCEADR 
P16 



2 

DSKDFT 
A 

RESET 



iNOW POINT TO THIS BAD ADDRESS 
J AND PRINT IT 

J TERMINATE EVERYTHING WITH A CR-LF 



fNOW GET THOSE DEFAULTS JUST MENTIONED 
r CLEAR ACCUM 

51****1/0 WRT 100***** NO PAR CHECKING 



5 FINALLY READY TO BEGIN THE ACT OF SAVING SOME REGISTERS 
J FIRST GET UBA LOCATION 763001 

LXI HjUBA.RH SPOINTER TO UBA READ-IN LIST 

CALL CHNXCT J READ-IN THE UBA INFO, , NOU ITS IN EMBUF 

INTON ) DON'T PRINT THIS 

RST 2 5 GO SET INTERNAL MODE 

CALL Ell (ACTUALLY DO THE READ-IN 

INTOFF m NOW 

RST 6 »G0 EXIT FROM INTERNAL MODE 

5 BEFORE WE SAVE IT. WE WILL SET UP FOR SAVING RH REGISTERS, . THAT WAY, WE 
J CAN USE SOME COMMON CODE FOR PUTTING DATA INTO OUR SAVE BUFFER, 

LXI B.RH.EXE iNOW POINT TO A CHANNEL COMMAND LIST 

LXI BtRMlOO iAND POINT TO A PLACE TO PUT THE LIST 

HVI A,6 JIT TAKES SIX BYTES TO MOVE THE ENTIRE LIST 

CALL MSB (MOVE THE STUFF TO RAM 
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5 THE CODE TO HOVE BYTES REQUIRES 'B»C* POINTING TO THE SOURCE 


5153 










,AND "Df E" POINTING TO THE DESTINATION 


5154 










rAND 'A' HAVING 


HOW MANY BYTES TO BE MOVED,. "HOVREG" DOES 5 BYTES 


5155 










5FREE OF CHARGE, .B,C AND D»E ARE UPDATED BY THE NUMBER OF BYTES MOVED, 


5156 


013751 


041 


222 


027 


LXI 


HjSAVLST 


JPQINT TO A LIST OF THINGS WHICH WE MUST SAVE 


5157 


013754 


345 






PUSH 


H 


5 PLACE IT IN THE RAM FOR SAFE KEEPING 


5158 


013755 


021 


327 


042 


LXI 


B,RHSAVE 


?D>E GETS THE POINTER TO THE SAVE AREA 


5159 


013760 


001 


012 


040 


RH.LPJ LXI 


B,EHBUF 


rUE WILL ALWAYS BE MOVING STUFF FROM 'EMBUF* 


5160 


013763 


315 


007 


033 


CALL 


HOVREG 


JMOVE 5 BYTES, PLEASE 


5161 
5162 










»T0 SAVE THE RH REGISTERS, 


WE WILL PUT A TINY CHANNEL COMMAND 


5163 










»LIST INTO RAM SPACE, THEN EXECUTE IT? CHANGING THE DESIRED REGISTERS 


5164 










(BETWEEN READS, 


WHICH WILL GIVE US A CHANCE TO SAVE THE RESULTS 


a /c 










iOF THE READ 






SM LL 

jloo 


A4 7"?/ / 

U 1,5/66 


lAi 

341 






POP 


H 


fGET POINTER INTO 'REG TO BE SAVED" BUFFER 


51 LI 


A1 Jill 


1 11 






MOV 


A»M 


f GET CURRENT BYTE INTO ACCUM 


□loo 


Ai 777A 




■i 77 
1/6 


AAA 


STA 


RH100+1 


5PUT BYTE INTO BUFFER SO CAN BE EXECUTED 


516? 


A1 7777 

G13773 


074 






INR 


A 


SUP BY ONE 


Dl/U 
a n 


A1777A 


6\l 


A1 A 


A7A 


JZ 


SCE.60 


5 IF THAT MAKES .ECU 0, THEN OUT 


Di/i 

5172 


013777 


043 






INX 


H 


iELSE UPDATE POINTER 


5173 


014000 


345 






PUSH 


H 


iSAVE THE POINTER TOO 


5174 


014001 


041 


172 


040 


LXI 


H,RH100 


5 PREPARE TO EXECUTE THE READIN BUFFER 


5175 


014004 


325 






PUSH 


D 


,'NOW SAVE THE SPOT WE ARE IN IN THE RHSAVE AREi 


5176 


014005 


315 


023 


025 


CALL 


CHNXCT 


5 DO IT.. ONE RH REGISTER IS IN 


5177 


014010 


321 






POP 


D 


{RETRIEVE POINTER TO THE DATA SAVE SPACE 


5178 


014011 


303 


360 


027 


JHP 


RH.LP 


5 SAVE INFO, AND READ IN NEXT RH REGISTER 
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5180 










»N0W DATA HAS BEEN SAVED* UE CAN ACTUALLY BEGIN TO RESTORE THE MICRO-CODE 


5181 


014014 








SCE.G0; INT0N 




f SET INTERNAL HODE 


(1) 


014014 


327 






RST 


2 » GO SET 


INTERNAL HODt 


5182 


014015 


021 


002 


002 


LXI 


B, "01002 


1 PLACE IN DM PAGE OF POINTERS TO HICRtKQDE 


5183 


014020 


315 


273 


022 


CALL 


FILESH 


?G0 READ IN THE HKST PAGE OF HICRQ-COBt 


5184 


014023 


332 


175 


032 


JC 


C.BTERR 


» IF ERR ITS ALL OvEK 


5185 
















5186 


014026 


315 


043 


023 


CALL 


DHEH2CR 


,60 LOAD LhAfl 


5187 

C4 OQ 

5188 


014031 


0j2 


"1A A 

344 


AAA 
040 


LHLH 


SCEABR 


fGET ADDRESS AT WHICH TO CONTINUE 


518? 


A 4 A AT A 

014034 


315 


7HA 

320 


A4 A 

014 


CALL 


CADUR 


{SET THE CRAM ADDRESS TO THE GUY THAT SLIPPED 


C4 fiA 

5190 










»WE ARE HEARING 


THE END OF THIS 


RECOVERY STUFF.. WE MUST RESTORE THE STATE 


Ci Q4 










»QF THE RH11 AND UBA TO WHAT IT 


WAS BEFORE UE STARTED, THEN WE CAN TURN THE 


□192 










5 CLOCKS ON AGAIN 




5193 


014037 


f\A i 

041 


16/ 


A*"*"? 

02/ 


LXI 


HtUBA.RD 


» POINT TO A UBA READ CHANNEL COMMAND LIST 


5194 


A4 A A Jkl 

014042 


74 C 

315 


023 


025 


CALL 


CHNXCT 


(SET THE I/O ADDRESS TO A UBA PAGE REGISTER 


C4 eve 

5195 
















519& 










{NOW FIX UP THE F0RHAT BETWEEN A READ OF THE UBA PAGING REG, AND 


C4 {3*7 










? THE WRITE UE WISH TO DO TO THE PAGING RAM 


C4 nn 


A4 A A AC* 

014045 


AT** 

072 


332 


AIT 

042 


LDA 


RHSAVE+3 


fGET THE BYTE THAT HAS THE CURRENT CNTRL BITS 


tr4 

5199 


A4 JIACA 

014050 


7 A / 

346 


4 "IA 

170 




AN I 


"0170 


f OFF JUNK, KEEP ONLY 4 RELEVANT BITS 


5200 


014052 


117 






MOV 


C,A 


5 SAVE IN THE C REG 


5201 


014053 


041 


327 


042 


LXI 


HfRHSAVE 


iNOW POINT TO OUR BUFFER WITH THE DESIRED INFO 


5202 


014056 


315 


4 C A 

154 


A "7 4 

031 


CALL 


SHR36 


? SHIFT DATA RIGHT, 4 PLACES 


5203 


A4I Ai\L 4 

014061 


004 






.BYTE 


4 




















5205 


A4 AA/H 

014062 


4 "H 

171 






MOV 


A»C 


»GET OUR CONTROL BITS BACK 


52Q& 


A 4 AA/7 

014063 


A / 1 

062 


331 


A A1 

042 


STA 


RHSAVE+2 


{PLOP THEM INTO THE 36 BIT WORD 


520/ 


A4 iA/ / 

014066 


"J4C 

315 


4 ST A 

154 


A"? 4 

031 


CALL 


SHR36 


{NOW SHIFT THE WHOLE MESS 5 MORE PLACES 


CI AO 

5208 


014071 


AAC 

005 






.BYTE 


5 




5209 
















5210 










j AND THATS IT.. 


MOVE STUFF TO A DEPOSIT BUFFER 


5211 


014072 








H0V5B 




!A 'MOVE" 


(1) 


014072 


347 






RST 


4 




(1) 


014073 


000 






.BYTE 







5212 


014074 


327 


042 




.ADDR 


RHSAVE 


{FROM THE SAVE BUFFER 


5213 


014076 


047 


040 




.ADDR 


DMDAT 


{ TO THE DEPOSIT BUFFER 


5214 


014100 


315 


016 


013 


CALL 


dii 


{WRITE THIS MESS BACK TO UBA PAGING RAH 
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SOI k 












WRITE BACK THE RH11 REGISTERS THAT WE SAVED » THEN DESTROYED 


5017 


A1 41 A7 


AA1 


014 
tin 


A07 

Vi.i 


t VT 
LA J. 




ifciny err tut puii prnTCTCP t fi TWTn tuf 
?mJW ofc J Int hnll Ktuio I tK 1 »u* IH\U int 


S01 
jr--j 4 Q 


A1 41 A£ 


71 5 


A07 
v/O 


A05 


Pa! i 


pmmypt 


* YWTFPWAJ fcllFFFP "THATi 1 n THPI iiriTWft liM KIIIMtEjuD 
fimtftrcHL JtJUrrtft iUHi» F inLLUmnD UUH riUniJtK 


sooa 


A141 1 1 


A41 


OOO 


A07 


1 YT 
Lai 


U.Q&Ui CT 

n?OHvLbf 




5001 


A1 41 1 4 


745 
o4j 






Pi icu 


u 
H 


iCAUL" TUTO TMCH HKI TUt CTArk' 

f oHvt mlb iNru UN Int hlHlfx 




A141 15 


AA1 
vvi 


774 
00*1 


A40 


La I 


P.PUCAUF4.5 
p*r\noHVLTJ 


»UTI 1 RCRTfci MHUTMR CTIIPP UF CAIirri ZftftU pli 
?W1LL DtuiiM nUvino 1 Ur r DHvtl' r MJn ho 




A1 41 OA 


AOI 


A47 


A4A 


TiT IP* ! VT 
iU*Lr* LAI 


U f Unun i 


!A| ijavq MHUF TI4F CTI IFP Til TUF rcpHQTT ftHFFFP 




A14107 




AA7 
Vv/ 


A"! 7, 
vuO 


wHLL 


M0VRE6 


5H0VE THE STUFF INTO "DMDAT" 


5225 


014126 


341 






POP 


H 


5 GET OUR LITTLE LIST POINTER 


5226 


014127 


072 


024 


040 


LDA 


IOAD 


rGET CURRENT OFFSET INTO RH 


5007 


A1 41 10 


1AA 


7AA 
OUU 




ANI 


"0300 


iTHROU AKAY CURRENT OFFSET 


5000 


A1 4174 
vision 


OAA 






ORA 


M 


» THROW OUR DESIRED OFFSET INTO THE HORD 


500Q 


A14175 
viniOJ 


AAO 


A04 


A4A 


STA 


IOAD 


!PUT IT BACK INTO THE IOAD BUFFER 


J£OU 


A1 41 4A 


I/O 






MOV 


AiH 


!GET THE OFFSET WE JUST MESSED WITH 


5071 


A1 41 41 


A74 






INR 


A 


JTEST TO SEE IF END OF LIST 


5077 


A1 41 AO 


71 


1 57 


A7A 
voU 


JZ 


CQNT.I 


5IF END OF LIST, FINISH THE RECOVERY 


j£00 










JNOT END OF LIST, MUST SAME SOME MORE RH REGISTERS 


5075 
J&OJ 


ai a 14=; 


Ail 7. 






INX 


H 


iUPDATE THE LIST POINTER 


507£ 


A1414£ 


145 

0*t <J 






PUSH 


H 


i SAVE THE POINTER 


5077 


A14147 


7A5 

OvJ 






PUSH 


B 


iSAVE POINTER TO THE SAVED DATA IN "RHSAVE" 


5070 


A1415A 


71=: 


A1 A 

VIO 


A17 


CALL 


DI1 


iNOW RESTORE THIS RH REGISTER 




A1 A 157 


7A1 
Ovi 






POP 


B 


(RESTORE POINTER INTO BUFFER 




014154 


303 


1 OA 


A7A 
Uov 


JMP 


DI.LP 


J CONTINUE 


5241 
















5242 


014157 


315 


356 


016 


C0NT.lt CALL 


SMFINI 


iGET CURRENT PARITY DEFAULTS I WRITE THEM OUT 


5243 


014162 


315 


214 


014 


CALL 


CSCHD 


»TURN THE CLOCK BACK ON 


5244 


014165 








INTOFF 




,N0 MORE INTERNAL MODE 


(1) 


014165 


367 






RST 


6 iGO EXIT FROM INTERNAL MODE 


5245 


014166 


303 


335 


001 


JMP 


NULLJ 


iGO 


5246 


000 






♦ENBC 
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5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
525? 



5267 
5268 
5269 
5270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
(1) 
(1) 
5285 
5286 
5287 
5288 



014171 325 

014172 076 003 
014174 315 362 014 
014177 321 

014200 052 100 040 

014203 174 

014204 346 007 
014206 147 



> ROUTINE TO CHECK IF CURRENT RAM ADDRESS IS THE DESIRED BREA 
(ADDRESS,, 
break: PUSH D 

MVI A,3 

CALL READC 

POP D 



i'DiE' HAS POINTER TO DESIRED ADDR> SAME IT PLEASE 
'Mm FUNC TO READ CURRENT RAM ADDR 
5 GO DO FUNCTION READ 
JNOy MAKE 'DjE' POINT AT DESIRED AGAIN 



LHLD TMPB2 J GET CURRENT ADDRESS,. 

MOV ArH (ALSO MAKE SURE THE CURRENT JUST READ IS 11 BITS 

ANI "07 >8 BITS LO HALF? PLUS 3 BITS HI HALF 

MOM HjA >NOU PUT THE WHOLE MESS BACK 



5260 


014207 


032 


LDAX 


D 


(GET LO ORDER PIECE TO ACCUM 


5261 


014210 


275 


CMP 


L 


! CHECK VERSUS JUST READ 


5262 


014211 


300 


RNZ 




J IF ,NE, 0» THEN NO MATCH. SO OUT,, 


5263 


014212 


023 


INX 


D 


iOK> SO UPDATE PNTR TO READ-IN 


5264 


014213 


032 


LDAX 


D 


>6ET HI ORDER OF DESIRED PIECE 


5265 


014214 


274 


CMP 


H 


i COMPARE ( SIGNS TAKE CARE OF THEMSELVES 


5266 


014215 


311 


RET 




5 IF RESULT OF ADD HAS ZERO? GOOD. IF NOT? OK TOO 



(ROUTINE TO DO 
(ENTER yiTH *D 



SHORT FORM OF EXAMINE MEMORY 
(E* CONTAINING SHORT ADDRESS 



014216 


067 






EXAHSH5 STC 




(SET C-BIT FOR LATER USE IN COMMON CODE 


014217 


343 






DEPSHTi XTHL 




(SWAP SO H»L POINTS TO TRAILING ARB 


014220 


315 


050 


033 


CALL 


TARG1 


(COLLECT TRAILING ARB INTO "D(E" 


014223 


343 






XTHL 




iSUAP BACK SO THAT THINGS ARE RIGHT 


014224 


353 






XCHG 




(AND NOW MAKE *H(L' HOLD THE TRAILING ARG 


014225 


042 


235 


040 


EXKHL! SHLD 


SHRTAD 


(STORE SHORT ADDRESS IN THE RAM 


014230 


021 


235 


040 


LXI 


D»SHRTAD (DE( GETS REPLACE WITH A POINTER TO SHORT 


014233 


365 






PUSH 


psy 


(SAVE THE C-BIT FOR LATER USE 


014234 


334 


041 


012 


CC 


EMINT 


(IF C WAS SET, GO DO AN EXAMINE 


014237 


361 






POP 


PSW 


(GET FLAGS AS THEY WERE 


014240 


324 


237 


012 


CNC 


DMINT 


(IF C WAS CLR DO A DEPOSIT 


014243 


311 






RET 




(NOV OK TO RETURN 










(ROUTINE THAT EXECUTES AN *AR616'( THEN RETURNS THE DATA IN 'H.L* 


014244 








ARG16.5 ARG16 




(ARGUMENT ASSEMBLER 


014244 


347 






RST 


4 




014245 


004 






• BYTE 


4 




014246 


000 


040 




,ADDR 


T80DT 


(USE A TEMP LOCATION 


014250 


052 


000 


040 


LHLD 


T80DT 


(GATHER DATA INTO H(L 


014253 


311 






RET 




(AND BACK 
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J£7V 










dlfl 






















0142j4 


7AC 






□Z74 




7A5 






DZ7J 


A1 405A 


705 
Oil J 






J£70 


A1 A'357 


7*5 






c ,O07 
J£7/ 


Ai 4 OA A 


71 5 


A70 


A71 


D£70 




AA1 






J£77 




AA7 










A1 A 


AA7 




'HAi 


A1 A*i£7 


711 
001 








A1 A07A 


71=; 


A1 A 
viv 


AAA 


57A7 


A1 A01J 


A1 5 
UiJ 






Dt5U4 


A1 A07A 
U14£/4 


7A0 


0£7 


A7A 












57 A A 


A1 A077 


7X1 






57A7 


AI A7AA 


701 
611 






r .7AB 
JOVO 


A1 A7A1 


7A1 






51AQ 
J0v7 


A1 A7AO 








m\ A 




71 1 






571 1 










5312 










5313 










5314 










5315 


014304 


345 






5316 


014305 


041 


122 


040 


5317 


014310 


167 






5318 


014311 


303 


255 


030 



? SUBROUTINE TO PRINT A SINGLE 8-BIT BYTE AS OCTAL DATA 
»0F THE FORHJ XXX 

>NQ REGS DESTROYED. »PNTR TO 8-BIT BYTE PASSED IN 'H»L" 



roBIT, PUSH 


H 


ihAVt ALL RtblSTERb 


P8BIT1S PUSH 


B 




PUSH 


B 




rUbn 


DC14 

rb» 




PAl i 

IRLL 


hptai 
ULIhL 


fthttttt <Mb1 1 Burrth fib h 6 UllflL 


♦ r»T it 


1 


iilKir TSVTC ftE" &TMADV fiATA TklilHi HCTj 

?UNt Jd T ! t ur Dififthf i*H I H INVULvtli 


DVTT 
♦ pi It 


7 



*UAKIT fiMI V 7 ftPTA* PUADC 


ti\ IT 

nvl 


Li 06 


j Nun LHAkb TO Phi hi 


P8LPJ POP 


PSW 


rCHAR OFF TOP OF STACK 


CALL 


PCHR 


J AND GO PRINT IT 


DCR 


C 


f DOWN COUNT 


JNZ 


P8LP 


SAND CONTINUE TILL DONE ALL 3 


POP 


PSW 


i RESTORE REGS 


POP 


D 




POP 


B 




POP 


H 




RET 




?AND ALL DONE 



? WHEN DOING A "P8BIT" WITH THE DATA PASSED IN THE ACCUM 
» INSTEAD OF BEING POINTED TO BY HrL THEN COME HERE 
P8BITA5 PUSH H »MUST SAVE H»L HERE. SO ME CAN MESS IT UP 
LXI H.P8 JMP (KEEP A PLACE FOR PRINTING DATA 
MOV M»A fPUT THE THING TO BE PRINTED IN THE RAM SPACE 
JMP P8BIT1 .60 TO COMMON CODE 
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{SUBROUTINE TO PRINT 16-BITS WORTH OF DATA,, 


□321 










{POINTER TO THAT DATA IS PASSED TO THE ROUTINE IN 


□322 










jREblSTER ml 






□323 


A-i Ali A 

0i4314 


A A 4 

041 


1 AA 

100 


AAA 

040 


rl6#f LXI 


HiTHF'B2 5 IN THIS TYPE CALL? WE LOAD HiL AUTOMATICALLY 


5^24 


A 4 ATI ~1 

014317 


365 






P16; PUSH 


Pbw 


fbAvE ALL THE REGISTERS 


□32j 


014320 


7AC 

30j 






PUSH 


B 




□326 


014321 


71C 

325 






PUSH 


Tt 
U 




5327 


014322 


345 






Pi! !f*l i 

PUSH 


JJ 

H 




5328 
















□32V 


A1 4707 

U 14323 


71 C" 

31 □ 


032 


A7i 
031 


LRLL 


nPTAi 

UwiHL 


SPPFaTF OPTaI PUA&Q rDHM TUC i A-fcTT TiATA 


C77A 

□330 


A1 Al'lL 

014326 


AAO 

002 






♦ Dl It 


9 


;yc uaiic n BYTFQ OF PFi FUMT fiATA 
? Wt nHVL £ BT 1 LD Ur F\LLlr.Vrm I UR! B 


□431 




AAi 
006 








A 



* AKIfi ur UAkjT l ftpTA! PMAPQ TH P&TMT 
IHRIJ wt WHIx I Ul/IHL wnrmo 1 U rMN 1 


□□□£ 
















CJ777 


A1 Allh 


AAA 


AAA 




HUT 


B»6 


5 ON RETURN WE WANT TO PRINT 6 CHARS 


□jvH 


A1 4770 


□01 






rloLr* rur 


psy 


f GET OCTAL CHAR OFF STACK 


□%/□□ 


M 4777 


Oi J 


viv 


vv*t 


CALL 


PCHR 


5 AND GO PRINT IT 




A1 AJ1A 


AAR 






DCR 


B 


I DOWN THE COUNT 


5337 


014337 


302 


332 


030 


JNZ 


PULP 


(BACK TO PRINT MORE TILL ALL DONE 


5338 
















533? 


014342 


341 






POP 


H 


5 DONE,, NOW RESTORE ALL REGS 


5340 


014343 


321 






POP 


D 




5341 


014344 


301 






POP 


B 




5342 


014345 


361 






POP 


PSU 




5343 


014346 


311 






RET 




j AND RETURN 
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5345 










5346 










5347 










5348 


014347 


041 


012 


040 


5349 


014352 


365 






5350 


014353 


305 






5351 


014354 


325 






5352 


014355 


345 






□353 


A 4 ATFtT / 

014356 


315 


032 


031 


C7CA 

j3j4 


A 4 A 7 £4 

014361 


AAC 

005 






C7CC 


014362 


014 






C7C / 

5356 










C7C7 


014363 


li c 

31j 


AA*1 


031 


ctco 

5353 










535? 


A 4 A"? / / 

014366 








(1) 


014366 


317 






(1) 


014367 


054 






5360 


014370 








/ 4 \ 
(1/ 


A4 A77A 

014370 


74 "7 

317 






/ 4 *. 


A4 A774 

014371 


AC A 

054 






C7 / 4 

5361 


A 4 A7T1 

014372 


74 C 

315 


002 


A7 4 

031 


5362 


A 4 A 77C 

014375 


7 A 4 

341 






C7 /7 

5363 


A4 AT - ?/ 

014376 


714 

321 






C7 / A 

5364 


A4 A777 

014377 


7A4 

301 






C7 / C 

5365 


A4 A AAA 

014400 


7/4 

36i 






C7 / / 

5366 


A4 A AA4 

014401 


74 4 

311 






5^6/ 










5368 










536? 


014402 


341 






5370 


A 4 A A A"? 

014403 


AAZ 

006 


AAZ 

006 




5371 


A4 A A AC 

014405 


7/4 

361 






□372 


A4 AAA/ 

014406 


315 


A4 A 

010 


AAA 

004 


C777 

5373 










5374 


014411 


005 






5375 


014412 


302 


005 


031 


5376 


014415 


351 






5377 










5378 










5379 










5380 


014416 


365 






5381 


014417 


305 






5382 


014420 


325 






5383 


014421 


345 






5384 


014422 


315 


032 


031 


5385 


014425 


003 






5386 


014426 


006 






5387 










5388 


014427 


303 


372 


030 



? SUBROUTINE PRINT 36-BIT BINARY DATA AS 

?A 12-0CTAL DIGIT CHARACTER STRING IN THE FORM 5 

{ XXXXXXmXXXXXX -NO REGS DESTR0YED-BIN DATA PNTR PASSED IN *H»L* 



P36.S LXI 


H»EHBUF 


UN THIS CALL. WE LOAD H»L AUTOMATICALLY 


P36! PUSH 


psy 


t WILL SAVE ALL REGS IN HERE 


PUSH 


B 




PUSH 


D 




PUSH 


H 




CALL 


OCTAL 


» CREATE 36-BIT BUFFER AS AN OCTAL CHARACTER 


.BYTE 


5 


MBYTES REQUIRED BY 36-BITS 


.BYTE 


D12 


{WANT 12 OCTAL DIGITS 


CALL 


PHALF 


1 PRINT 18 BITS 


» IF HEREr JUST FINISHED FIRST PASS* NEED 2 COMMAS. 


PCHAR 


COMMA 




RST 


1 


JG0 PRINT CHAR IN TRAILING BYTE 


.BYTE 


COMMA 


J CHAR TO PRINT 


PCHAR 


COMMA 


» PRINT '.»' 


RST 


1 


iGO PRINT CHAR IN TRAILING BYTE 


.BYTE 


COMMA 


ICHAR TO PRINT 


P36RH5 CALL 


PHALF 


J PRINT 18 MORE BITS... 


POP 


H 


{NOW RESTORE ALL THE REGS 


POP 


D 




POP 


B 




POP 


PSW 




RET 




{RETURN 


5 ROUTINE PRINTS 18 BITS AS 6 OCTAL CHARS 


phalf; POP 


H 


f GET A RETURN ADDR OFF STACK » SO STACK IS CLi 


MVI 


B»6 


S-'B' WILL BE A COUNTER » IN IT WITH 3 


P36L2! POP 


PSW 


5 CHARACTERS TO ACCUM 


CALL 


PCHR 


SPRINT IT 


DCR 


B 


{DOWN COUNT 


JNZ 


P36L2 


{CONTINUE IF NOT DONE 6 CHARS YET 


PCHL 




{RETURN 



{ROUTINE TO ALONE PRINT 18 BITS 



PUSH 


PSW 


{WILL SAVE ALL REGS IN HERE 


PUSH 


B 




PUSH 


D 




PUSH 


H 




CALL 


OCTAL 


{CREATE 6 OCTAL CHARS 


.BYTE 


3 


{3 BYTES HAVE RELEVANT DATA 


.BYTE 


6 


{AND DESIRE 6 OCTAL CHARS 



JMP P36RH JGO TO RIGHT HALF PRINTER FROM , P36' 



VER 6,2 KS10 CONSOLE PROGRAM CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-MAY-79 16150 PAGE 3-175 
SUBRTN.H80 WttKSlO CONSOLE SUBROUTINE FILE 



5390 
5391 
5392 
5393 
5394 
5395 
5396 
5397 
5398 
5399 
5400 
5401 
5402 
5403 
5404 

5405 014432 021 007 003 

5406 014435 353 

5407 014436 042 202 040 
5408 

5409 

5410 014441 343 

5411 014442 106 

5412 014443 043 

5413 014444 116 

5414 014445 043 
5415 

5416 014446 042 217 040 

5417 014451 341 

5418 014452 305 
5419 

5420 014453 041 073 040 
5421 

5422 014456 032 

5423 014457 023 

5424 014460 167 

5425 014461 043 

5426 014462 005 

5427 014463 302 056 031 
5428 

5429 014466 301 
5430 

5431 014467 041 073 040 

5432 014472 257 

5433 014473 127 

5434 014474 130 

5435 014475 035 

5436 014476 031 

5437 014477 042 233 040 



.UNIVERSAL BINARY DATA TO ASCII CHARACTER SUBROUTINE 

? ROUTINE DESTROYS THE CONTENTS OF ALL REGISTERS 

J PASS POINTER TO BINARY BATA IN 'H.L« .THEN CALL APPROPRIATE 

tCOVERSION DESIRED WITH 2 TRAILING PARAMETERS-CHARS PLACED ON STACK. MSB 

} CALL ROUTINE 

} DB XX .NUMBER OF BYTES HOLDING RELEVANT BINARY DATA 
I DB YY .NUMBER OF ASCII CHARACTERS TO BE GENERATED 
.ROUTINES ARE 'OCTAL' » 'BINRY* . AND 'HEXIBECIMAL* 



ICODE WAS NEVER USED.. KEEP TEXT HERE JUST IN CASE UE EVER NEED TO ADD IT 

fTHIS HAY UE WON'T HAVE TO FIGURE IT ALL OUT AGAIN 

JBINRYJ LXI B."0401 .LOAD D=1»E=1 

5 JMP COHEN »GG TO COMMON CODE 

OCTAL* LXI D? "01407 jLOAB B=3.E=7 

XCHG .SWAP 'D.E' WITH 'H.L' 

SHLD BTMSK .SET DATA INTO "BTMSK" i "BTNUM* 

.POINTER TO BIN DATA NOW IN 'D.E* 



XTHL 




."H.L" NOV POINTS TO TRAILING ARGS 


MOV 


BiM 


.BOMB 'B' REGISTER. NOW CONTAINS 'NUM« BYTES 


INX 


H 


.UPDATE PNTR 


MOV 


CM 


»NUM CHARS INTO C 


INX 


H 


.AND UPDATE PNTR TO RET ADDR 


SHLD 


HLSAVE 


JSAVE RETURN IN RAM 


POP 


H 


.CLEAR OLD STUFF OFF STACK 


PUSH 


B 


'.SAVE 'B.C JUST TEMPORARILY 



LXI H.TMPBF2 .'H.L' NOU POINTS TO TEMPORARY BUFFER 

.IF FALL TO HERE. MUST MOVE DATA FROM BINARY BUFFER TO TEMP BUFFER 



OCTUi LDAX 


D 


.DATA POINTED TO BY 'D.E" TO ACCUM 


INX 


D 


.BUMP POINTER 


MOV 


M.A 


fSET THAT DATA IN RAM 


INX 


H 


.BUMP POINTER 


DCR 


B 


.DONE ALL BYTES YET? 


JNZ 


0CTL1 


.BACK TILL MOVED ALL* 



POP B .RESTORE 'B.C AND GO 



LXI 


H.TMPBF2 .'H.L' NOW PUTS TO TMP BUFF 


XRA 


A 


.CLEAR ACCUM 


MOV 


D.A 


.CLEAR "D* REG 


MOV 


E.B 


".BYTE COUNT TO 'E" 


DCR 


E 


.BUFF IS ALWAYS 1 LESS THAN BYTE COUNT 


DAD 


D 


j'H.L' GETS BUFF ADDR PLUS BYTE COUNT 


SHLD 


OCTSV 


.AND SAVE THIS ADDR IN THE RAM 
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j43¥ 










(HERE WILL BEGIN TRANSLATION FR0H BINARY TO CHARACTERS 


c. AAA 


A1 ACAO 
Ul4j02 


AA1 
041 


A77 
0/3 


AAA 

040 


OCTLCi 


LXI 


H» TMPBF2 J'HjL" NOU POINTS TO TEMPORARY BUFFER 


C AA4 

5441 


A i AC AC 

01 450 j 


A "JO 

072 


OAO 

202 


AAA 
040 




LBA 


BTHSK 


INOU GET BIT MASK 


5442 


A-t AC4 A 

014510 


246 








ANA 


H 


J AND TO KEEP ONLY DESIRED CHARS 


j443 


















5444 


014511 


TA / 

306 


A/ A 

060 






ABI 


"060 


5HAKE INTO ASCII 


cue 

5445 










5 NOW MUST ROTATE ENTIRE BUFFER 3 PLACES TO RIB OURSELVES OF CHAR JUST PROCESSED 


C AA / 


A4 AC4 7 

014ul3 


T/C 

36j 








Pi 1QU 


rbw 


*kjnU CAMf PUApApTFP jirijr {HOT ppFATnTi 

?NUW DHvt LnRKHt ( th wtvt JUbt Lhfcfi 1 tl» 


KAA1 

j44/ 


A1 A 

U14j14 


A1 5 
Old 










p 


innuK} Tur puap phi ikit 


j44o 


ai asi s 
U14j1j 


71 O 
312 


1 KfS 
IdO 


A71 
031 




17 


nrti «s 


? u iup hut tt ppnrirccrn ai i puapc 




A1 A50A 


A70 
Sift 


0A7 
LVQ 


AAA 






8THIIM 
DinUn 


Kii fM fiTTQ TMTfl APPI |M 


d4dU 


A1 AC07 

U14j£3 


107 








HOV 


D»A 


PB" GETS 1NITAL COUNT OF BITS 


dTdl 




















ft 1 ASIA 

vIt-J£.t 








OCTL35 


HOV 


E»B 


j'E" GETS BYTE COUNT 




Ai ARO^ 




077 


AAA 




LHLD 


0CT.SV 


5 GET UPDATED BUFF PNTR TO "HrL" 




A1 A^IA 
vatJOv 


9A7 








ANA 


A 


(CLEAR "C-BIT" 


•j4jj 


















c ac/ 


A 4 AC71 

014j31 


1 7£ 

1/6 






0CTL4J 


HOV 


AiH 


i GROUP OF BINARY BITS TO ACCUH 


J4J/ 


A1 A c .70 


A77 








RAR 




5BIT INTO "C" BIT 


CACO 

5458 


AI ACT7 

014533 


Ail 

16/ 








HOV 


H»A 


5 AND SHIFTED DATA BACK INTO HEH 


C ACQ 

5459 


A-l ACTA 

014534 


ACT 

053 








BCX 


H 


JSTEP UP IN THE BUFFER (UPSIDE-DQUN BUFFER) 


C A / A 

5460 


A4 ACTC 

014535 


ATC 

035 








DCR 


E 


5 DOWN BYTE COUNT 


5461 


A 4 ACT/ 

014536 


TA-"i 

302 


4 T4 

131 


AT 4 

031 




JNZ 


0CTL4 


i CONTINUE WITH BUFFER 


5462 


014541 


025 








BCR 


D 


t DONE BUFFERS WORTH? SEE IF DONE ALL 3 BITS WORTH 


5463 


014542 


302 


124 


031 




JNZ 


0CTL3 




5464 










JBONE THE 3-BITSi NOU CONTINUE WITH NEXT CHARACTER 


5465 


014545 


303 


102 


031 




JMP 


OCTLC 


560 PROCESS NEXT CHARACTER 


5466 


















5467 










J HERE WHEN BONE ALL CHARS. 


5468 


014550 


052 


217 


040 


OCTL55 


LHLB 


HLSAVE 


J GRAB THE RETURN ADDRESS 


5469 


014553 


351 








PCHL 




» AND RETURN 
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5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 

547? 014554 

5480 014556 

5481 014556 

5482 014557 

5483 014560 
5484 



076 005 

343 
305 
106 



{SUBROUTINE TO SHIFT 36-BIT DATA BUFFER SOME 

{ NUMBER OF PLACES TO THE RIGHT.. ADDRESS OF BUFFER TO BE 

f SHIFTED IS PASSED IN %L\. NUMBER OF PLACES FOR IT 

{TO BE SHIFTED IS PASSED AS A TRAILING PARAMETER 

JIN A BYTE TRAILING THE SUBROUTINE CALL 

} CALL SHR36 

{ .BYTE XX 5NUM PLACES TO SHIFT 



SHR365 MVI 
SHR245 

SHR60J XTHL 
PUSH 
MOV 



B»M 



{A SHIFT 36 REQUIRES 5 BYTES TO BE MOVED 

} POINTER TO TRAILING BYTE INTO MR* 
5 SAVE ALL THE REGISTERS 
{NUMBER PLACES TO SHIFT IN "B" 



D4oD 


A1 AKli 

U14D61 


AZ7 




TMV 


CD 

br 


?Dunr oiHlfc rulNlth HhUUrtu Int bHVtU d>L 




G14j62 


AZ"? 

063 






CD 

or 




D4o/ 


A1 AKL1 

v14joo 






TUV 

INa 


H 


?NUw DUnr Kt 1 UhM RlJUhtbb rflbi Int iKfllLlnb 


j4oo 


Ai A*LA 


1A1 

o43 




VTUI 

AlHL 




imtt rul 11 DHth UN III Int b 1 Rll\ 


cr Ann 

548? 


A 4 AC/C 

014565 


ATT 

073 




DLX 


SP 


mUW FIX STACK SO THAT SAVED B>C IS BACK 


cr aoa 


014566 


0/3 




DIX 


CD 

or 




34V I 


01456/ 


TIP 




rllon 


U 




54V2 


0145/0 


345 




rUSH 


H 




5493 














5494 


A4 AKIi 
0145/1 


13/ 




unit 

fluv 


t»A 


jnUnoth Ur Bilts INVULVtli who IN Hr oflvt in 


cane 














5496 


014572 


075 




DCR 


A 


5FIX COUNT 


5497 


014573 


205 




ADD 


L 


i AND N0y ADD COUNT TO "H»L* ADDRESS 


5498 


014574 


157 




MOV 


L»A 


{PUT BACK INTO L0 ORDER 


549? 


014575 


174 




MOV 


A»H 


{GET HI PIECE 


5500 


014576 


316 000 




ACI 





{AND ADD A CARRY TO H IF THERE WAS ONE 


5501 


014600 


147 




MOV 


HfA 


{NOW PUT IT BACK 


5502 














5503 


014601 


345 




PUSH 


H 


SAND PUT ON STACK FOR REUSE 


5504 














5505 


014602 


341 


S36BL*. 


POP- 


H 


{FETCH SAVED » UPDATED ADDRESS 


5506 


014603 


345 




PUSH 


H 


{NOW SAVE %L" 


5507 


014604 


113 




MOV 


CtE 


{GET NUMBER BYTE INVOLVED INTO C AGAIN 


5508 


014605 


247 




ANA 


A 


{CLEAR THE C-BIT 


5509 














5510 


014606 


176 


S36LPJ 


MOV 


AiM 


{GET BYTE FROM BUFF TO ACCUM 


5511 


014607 


037 




RAR 




{SHIFT IT RIGHT 


5512 


014610 


167 




MOV 


M>A 


{NOW PUT IT BACK INTO THE BUFFER 


5513 


014611 


053 




DCX 


H 


{NEXT BYTE 


5514 














5515 


014612 


015 




DCR 


C 


{WAIT!.. HAVE WE DONE ALL BYTES YET?? 


5516 


014613 


302 206 031 




JNZ 


S36LP 


{BACK INTO LOOP IF NOT YET 
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5518 SFALL THRU WHEN DONE THE 5 BYTES 

5519 014616 005 ICR B {DONE NUMBER OF TIMES YET?? 

5520 014617 302 202 031 JNZ S36BL IJUHP IF YES DONE ALL 
5521 

5522 SHERE mm ALL DONE 

5523 014622 341 POP H {RESTORE THE 'HiLHX 

5524 014623 341 POP H {RESTORE "BiC* 

5525 014624 321 POP D {RESTORE *DiE* 

5526 014625 301 POP B {RESTORE *H»L" 

5527 014626 311 RET 
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5529 
5530 
5531 
5532 
5533 

5534 014627 076 014 

5535 014631 303 244 031 
5536 

5537 014634 076 005 

5538 014636 303 243 031 
5539 

5540 014641 076 002 

5541 014643 341 

5542 014644 062 214 040 

5543 014647 072 213 040 

5544 014652 247 

5545 014653 302 005 032 
5546 

5547 

5548 014656 052 223 040 

554? 014661 001 000 000 
5550 

5551 014664 176 

5552 014665 326 060 

5553 014667 346 370 

5554 014671 302 305 031 

5555 014674 176 

5556 014675 326 060 

5557 014677 365 
5558 

555? 014700 014 

5560 014701 043 

5561 014702 303 264 031 
5562 

5563 

5564 014705 315 245 033 

5565 014710 042 223 040 

5566 014713 315 344 032 

5567 014716 322 150 032 
5568 

5569 014721 052 207 040 

5570 014724 257 

5571 014725 167 

5572 014726 043 
5573 

5574 014727 135 

5575 014730 124 

5576 014731 015 
5577 



S ROUTINE TO ASSEMBLE 16-BIT ARGUMENT 

f PLACE TO PUT 16-BIT DATA PASSED AS A TRAILING 

JARG... 'B»C IS MESSED UP BY THIS ROUTINE 



5 CALL 


ARG16 




ARG96! MVI 


A* 12* 


5NUMB BYTES USED IN ARG96 IS 12 


JHP 


AR6BG1 




.ARG36J MVI 


A»5 


JNUMB BYTES USED IN ARG36 IS 5 


JMP 


ARGBEG 




.AR616J MVI 


Ai2 


JNUMB BYTES USED IN AR616 IS 2 


argbeg: pop 


H 


»GET H»L FROM TRAP HANDLER 


ARGBG15 STA 


CHRCNT 


JSAVE IT 


LDA 


RPTON 


HS THIS A REPEAT?? 


ANA 


A 


i CHECK THE REPEAT FLAG 


JNZ 


CLEAN 


J JUMP IF YES A REPEAT 4... 


{ELSE FALL THRU AND 'GET' CHARACTERS AS BINARY DATA 


LHLB 


»ARG1 


? GET PNTR TO AR6 


LXI 


BjOO 


JCLR REGS "BfC 


GETLP5 MOV 


AjM 


?GET AN ASCII CHARACTER 


SUI 


"060 


JOTHERyiSEf OFF ASCII STUFF 


ANI 


"0370 


>NOU BE SURE IT WAS NUM AND NOT CHAR 


JNZ 


GETEN 


J IF HAD BITS 80 SEE IF PROPER ENDING 


MOV 


A»M 


i MESSED UP CHAR> GET IT BACK 


SUI 


"060 


iOFF THE ASCII AGAIN 


PUSH 


PSW 


$S0 HE CAN STACK IT 


INR 


C 


•WAS OK,. SO UP COUNT 


INX 


H 


»AND UPDATE TO NEXT CHAR 


JMP 


GETLP 


J AND CONTINUE TILL DONE 


5 JUMP TO HERE 


VHEN STACKED ALL THE CHARS 


GETEN5 CALL 


SEPCHR 


J THROW OUT TRAILING SPACES S TABS 


SHLB 


♦ARG1 


jSAVE 'HiL' 


CALL 


EOCHL 


JEND OF LINE?? 


JNC 


KILNM 


5 IF NOT HE HAVE A PROBLEM 


LHLB 


RPBUFS 


»GET PNTR TO REPEAT DATA BUFFER 


XRA 


A 


JCLR ACCH 


MOV 


MjA 


5CLR THE 'BYTE' COUNTER 


INX 


H 


t UPDATE POINTER 


MOV 


EiL 


iCOPY POINTER INTO *D»E" REG 


MOV 


DiH 




BCR 


C 


J MAKE C START AT COUNT-1 
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557? 


014/32 


325 






RPINCB* PUSH 


5580 


014733 


341 






POP 


5581 


A>! 4~I"?A 

014734 


ait 

023 






I NX 


5582 


A4 4"}7C 

014735 


AIT 

023 






INX 


5583 


A 4 ill / 

014736 


023 






INX 


5584 












□585 


fki kill 

Q14737 


34j 






Dl ICMJ 

rUhn 


5586 


A4 A"7*A 

014740 


052 


207 


AAA 

040 


t ttf f*i 

LHLD 


5587 


A4 A"J A7 

014743 


176 






uni i 

nuv 


5588 


A4 h"1 K & 

014744 


TA/ 

306 


A A "7 

003 




ADI 


rcnn 

5589 


014746 


167 






Hoy 


CCfiA 

5590 


A4 A "J ill 

014747 


341 






POP 


5D71 












5jV2 


Ai i"3CA 
014/50 


AAZ 

006 


A1 A 




till! 

nvi 




014/52 


361 






A16rrU rur 


55V4 












5J7J 


014/j3 


022 






hKBUUI SIhX 


CCO£ 












JJ7/ 










jDUNi ntbb Ur 


ccnn 
JJ7G 


Ul^/JH 




IJt 




LfiLL 


ciroo 
JJ77 


014/5/ 


AA7 

003 






DVTr 


5600 












5601 


A4 A"l/ A 

014760 


A4 C 

015 






DCR 


5602 


A4 A~1£ 4 

014761 


362 


T*7 4 

374 


AT 4 

031 


JP 


5603 


A4 JITf / 4 

014764 


257 






VDA 


5604 


A4 n/c 

014765 


AAC 

005 






DCR 


CT / AC 

5605 


A4 AT / / 

014766 


T4 n 

312 


AAA 

000 


032 


JZ 


5606 


014771 


303 


353 


031 


JHP 


ET I A*? 

5607 












ET / Aft 

5&08 


A4 jmi 

014774 


AAC 

005 






N0TRKI DCR 


5609 


014775 


302 


352 


031 


JNZ 


5610 












5611 










? DONE 8-TIMES 


5612 


015000 


171 






CHKSTK5 HOW 


5613 


015001 


247 






ANA 


5614 


015002 


362 


332 


031 


JP 


5615 













D SHtL SHOULD BE SAME AS BiE 

H fSO B0 IT USING STACK 

[I > EXCEPT D»E SHOULD BE 

D »3 GREATER 
D 

H 5 SAME HfL FOR A MINUTE 

RPBUFS i WHILE THE 'BYTE" COUNTER GETS UPDATED 

A»M JC0PY CURRENT COUNT 

3 ?UPDATE BY 3 

M»A 5 NOW PUT IT BACK 

H SAND FIX UP H»L 

B»8, SB GETS A COUNT OF 8 FOR OUR LOOP 

PSW »QET 3-BIT BINARY 

D ? AND PUT INTO TMP BUFFER 

■HiL'f ITS NEEDED BY 'SHR36* ROUTINE 

SHR36 i SHIFT THING 36 PLACES 

3 i SHIFT 3 PLACES 

C fDOWN CHAR COUNT 

N0TRK 5 FOOL THE 8-TIME LOOP IF GOES MINUS 

A JCLR ACCUM.IN ORDER TO PAD WITH ZEROES 

B JD0WN OUR '8' COUNTER 

CHKSTK SAND OUT IF ZERO 

ARGQQ J ELSE CONTINUE LOOPING 

B JB0WN COUNT THE 8-TIME LOOP 

A16PK I IF STILL DOING 8-TIMES 

.NOW CHECK IF C HAS GONE TO ZERO 

A»C ? COPY C TO ACCM TO CHECK IF ZERO 

A i.EO, 0?? 

RPINCB (JUMP IF NOT YET,, 
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JOl/ 










5 ELSE FALL THRU 


..MUST N0H MOVE ASSEMBLED NUMBER TO DESTINATION 


C_Z i Q 

5618 


A* CAAC 

015005 


ACO 

052 


0A7 

207 


AAA 

040 


clean: 


LHLD 


RPBUFS 


j GET BYTE COUNTER FOR THIS DATA 


561? 


A 4 CA4 A 

015010 


4 A / 

106 








MOV 


BiH 


5 NOW B HAS COUNT OF NUMBER BYTES ASSY'D 


5620 


015011 


043 








INX 


H 


JFIX HfL UP AGAIN.. 


5621 










>N0y H.L HAS SRC.DiE HAS FF,. STACK HAS PC 


5622 


015012 


343 








XTHL 




fSWAP-EEE 


5623 


015013 


315 


050 


033 




CALL 


TARG1 


f ASSEHBLE BEST ADDR INTO B»E 


5624 


015016 


343 








XTHL 




fbwAP-EEE BACK 


5625 


















5626 


A4 CA-I T 

015017 


072 


214 


A« A 

040 




LDA 


CHRCNT 


5GET NUMB CHARS DESIRED BY THIS ROUTINE 


j627 


Q15022 


117 








MOV 


CiA 


»C NOy HAS DESIRED,. B HAS NUMB CHAR ASSY'D 


5628 


A 4. EfK*\7 

015023 


I/O 






MOVLF'i 


MOV 


AiH 


5 START MOVING CHARS TO DESTINATION 


'Jbc.7 




A01 








STAX 


D 


{CHAR TO DEST.. 


CZ7A 




A/17 








INX 


H 


? UPDATE SRC POINTER 


C / 74 

jo31 


A 4. CAOZ. 

015026 


A17 

023 








INX 


D 


? UPDATE DEST POINTER 


■Jb6c. 


A1 CTAfn 


A1 K 








DCR 


C 


mm THE DESIRED COUNT 


C/77 
j633 


A i CA7A 
015030 


312 


Acn 

0j2 


032 




JZ 


FIXPNT 


f IF GOT DESIRED NUMBER iDONT PASS ANY MORE 


j634 




















U1jU33 


AA5 








DCR 


B 


JDOUN THE ASSY'D COUNT 


c/7/ 


A4 CA7 A 

01j034 


7A0 
3UZ 


A07 


03*. 




JNZ 


MOVLP 


JKEEP ON KEEPIN' ON 


j63/ 


















C/7D 










j WHEN FALL THRU 


WEVE MOVED ALL THAT UE CAN. .NOW PAD THE BUFFER 


C/ 70 

563? 


A4 CA77 

015037 


i 7A 

170 








MOV 


AfB 


?CLR ACCUM..B MUST BE ZERO 


C / AA 

5640 


A4 CA A A 

015040 


A4 C 

015 






PADLP5 


DCR 


C 


iDOyN THE DESIRED COUNT 


C / A 4 

5641 


A4 ETA A 4 

015041 


372 


AC / 

056 


ATI 

032 




JH 


FINAR6 


JIF THAT'S MINUS. WERE ALL DONE,. 


C / A** 

5642 


A4 ETA A A 

015044 


AIO 

022 








STAX 


D 


.OTHERWISE STACK A ZERO 


Cf At 

5643 


A4 CA AC 

015045 


AO"? 

023 








INX 


D 


JUPDAT DEST POINTER 


5644 


015046 


303 


040 


032 




JMP 


PABLP 


;and continue till done 


5645 


















5646 


015051 


043 






FIXLPi 


INX 


H 


jhust update buffer pointer 


5647 


015052 


005 






FIXPNTI DCR 


B 


rDOUN THE ASSEMBLED COUNT 


5648 


015053 


302 


051 


032 




JNZ 


FIXLP 


iAND GO BACK TO ADJUST POINTER IF NOT ZERO 


5649 


















5650 


015056 


042 


207 


040 


FINAR6J SHLD 


RPBUFS 


$N0U PUT BACK OUR LITTLE POINTER 


5651 


015061 


311 








RET 




»AND GET OUT 
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5653 






f ROUT I HE FOR 


5454 


015062 


176 


PLACE { HOv 


5655 


015063 


022 


STAX 


5656 


015064 


A .AT 

043 


INX 


5657 


015065 


AIT 

023 


INX 


5658 


015066 


176 


M0U 


565? 


015067 


346 017 


ANI 


5660 


015071 


022 


STAX 


5661 


015072 


023 


INX 


5662 


015073 


053 


OCX 


5663 


015074 


311 


RET 


5664 









BITS FOR A NICE CRAM FORMAT 



AiM 


{GET PIECE OF SRC BYTE 


D 


> PLACE AT DESTINATION 


H 


> UPDATE SRC POINTER 


B 


J UPDATE DESTINATION POINTER 


AfH 


>GET UPPER 4 BITS OF 12 BIT CHUNK 


"017 


$MAKE SURE ONLY 4 BITS WORTH 


B 


JAND PLACE AT THE DESTINATION 


B 


J DESTINATION UPDATE 


H 


i BACKUP THE SRC POINTR TO BEGIN OF 24 BITS 




J AND RETURN 
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5666 '» ROUTINE TO COMPLETE THE TRAP HANDLING TYPE OPERATION WHICH CHANGES 

5667 iA NORMAL 3 BYTE SUBROUTINE CALL INTO A 2 BYTE TRAP TYPE CALL,, 

5668 JIT COSTS 3 BYTES TO ADD ANY SUBROUTINE TO THE TRAP CALL i SO THAT YOU SAVE 

5669 iAT LEAST ONE BYTE FOR ANY SUBROUTINE THAT IS CALLED 3 TIMES.. AND YOU SAVE 

5670 iONE BYTE FOR EACH ADDITIONAL TIME IT IS CALLED 



C / "7 4 

5671 


015075 


A A 4 

041 


4 4"} ATI 

117 032 


RTNDIS* LXI 


i! Tti TPT 

Hf DLIST 


fGET POINTER TO DIbPATCH LIS] 


C /"VI 

5672 


A 4 ET 4 A A 

015100 


365 




PUSH 


psy 


fSAvt STATE OF PROlEbSOR FLhuS 


C / "1*7 

5673 


A* V4 A4 

015101 


325 




ft! !f*l i 

PUSH 


D 


*f*Aiir* art r* i Tn An r*Ai!T rtr*#^Trifiv rifiM^ 

iSAvE Df E ♦ ♦TRAP CANT DEbTROr REfab 


JO/ 4 


vljlvz 


2UJ 




WiTi 
ftUU 


L 


imu Urrbc.1 IN Hbtun !U AuUhtbb ♦ 


JO/J 


A1 *Zi A7 


1 57 
1J/ 




Mftii 

nuv 


i -A 


*DHT AMiD Dl ItO fiCCCCT CAPk" 

?rU! ftUUK rLUb Urrbhi dhLIV 


JO/0 


hit:* a* 
ViJiUn 


l/*t 




nuv 


H?n 


rot t hi UHULn rittt 


Kill 
•JO/ / 


Ai r .1 f\K 


515 


AAA 


apt 


A 
V 


* jjnjJ ATiTi Tkl A PADOV TC TUL'DL' MAC? fiKiir 

jNUw AMD IN ft IfthKT ir IntKfc mb unt 


jo/q 


MKi A*7 
UljlU/ 


1 A"7 
14/ 




nuv 


y. a 




Ri.70 
JO/7 














Doov 


A151 1 A 


1 7A 

Ijo 




Mull 
nuv 


t? n 


*unu fin rnru amid in &r T»TCDATrucrj th 


j681 


Oljlil 


043 




TUV 

INX 


H 


MfBTYATET Tfl klCVT 

fUrDAlE 10 NtXi 


5682 


015112 


126 




HOU 


D*M 


?N0y FETCH HI ORDER PIECE OF ADDR TO BE DISPATCHED TO 


5683 


015113 


353 




XCHG 




J GET DISPATCH ADDR INTO Hf L 


5684 


015114 


321 




POP 


D 


? RESTORE D>E # „N0y ONLY H?L //RET ADDR ON STACK 


5685 


015115 


361 




POP 


psy 


} RESTORE PROCESSOR FLAGS 


5686 


015116 


351 




PCHL 




iDISPATCH TO APPROPRIATE SUBROUTINE 


5687 














5688 


015117 


371 


032 


DLISTJ .ADDR 


♦H0V5B 


J+0 


5689 


015121 


202 


004 


♦ADDR 


♦CRLF 




5690 


015123 


241 


031 


•ADDR 


♦ARG16 


;+4 


5691 


015125 


014 


027 


♦ADDR 


♦RUN* * 


}+6 


5692 


015127 


234 


031 


♦ ADDR 


♦ARB36 


}+B. 


5693 


015131 


224 


033 


♦ADDR 


♦CLRRH 


ttlO* 



VER 6.2 KS10 CONSOLE PROGRAM CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-HAY-79 16550 PAGE 3-184 
SUBRTN.H80 tttt CLRB EXECUTE CODE tttt 



5695 










♦SBTTL tttt CLRB EXECU' 


5696 


015133 


046 


040 




CLRBYTt mi 


H f "Q40 


5697 


015135 


157 






MOV 


L-A 


5698 


015136 


066 


000 




MM I 


M»0 


5699 


015140 


341 






POP 


H 


5700 


015141 


311 






RET 




5701 














5702 










. SBTTL tttt SOME ERROR 


□703 


A-i tM h*S 

015142 








RRARG! PLINE 


RAG 


(1) 


ISi C-f **") 


"27*7 
66/ 






RST 


3 


(1) 


A4 C4 k"l 

015143 


242 


A 7 "J 

037 




,ABBR 


RAG 


CIA A 

5704 


A4 C4 1C 

015145 


"7 A"? 

303 


344 


AA*7 

003 


JMP 


NORM. 




A-I Ci Cft 








KILNHi PLINE 


BB1 


(1) 


A<! C4 CA 

015150 


337 






RST 


3 


(1) 


015151 


246 


037 




•ADDR 


BB1 


5706 


015153 


072 


251 


040 


MHERR! LDA 


MMFLG 


5707 


015156 


247 






ANA 


A 


5708 


015157 


312 


255 


001 


JZ 


REINI 


5709 


015162 


315 


205 


034 


CALL 


BECNET 


5710 


015165 


315 


147 


014 


MMERRlt CALL 


MMCMB 


5711 


015170 


303 


255 


001 


JMP 


REINI 



I CODE tttt 

JTHIS HALF GENERATES THE '20000' S' HEIGHT OF ADDRESS 
tTHIS GENERATES THE REST OF THE RAM ADDRESS 
5 CLEAR THAT LOCATION 
fFIX H?L 

I OUT I DONE 

CODES tttt 
*"?REQUIRES ARG' 
JPRINT LINE OF CHARS 
J BUFF TO PRINT 
5 ERROR MUST RESET THE STACK 
5?BN BAD NUMBER 
5 PRINT LINE OF CHARS 
J BUFF TO PRINT 
{SEE IF IN MAINTENACE MODE 
i SET 8080 FLAGS 
f IF NO MM MODE? OUT 
(FINISH UP ANY MESSAGES 
HF YES> RESET MODE 
J ERROR MUST RESET THE STACK 
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S717 
J/ liJ 










.ERRORS INCURRED DURING 


Inc. tfUUI rHUttoD 


J/H 


A< -77 


7A£ 
0U6 


AAO 




Ti BTFBB* ATiT 




* CAT! J IDF UUFM TDTFfi Tft CTADT MTPDf»..PfiriF AFTCD A ftftnT 

frfiiLUKt mtn \hltU III blflh! nluKU~LUiJL Hi* ILK H l?UU 1 


5/15 
















J/16 
fT"H "? 


A4C4 -»C 

0151/j 


306 


002 








yrRlLUht DUKiNu Inc. ntftDINb Or int. nILhu~CUDt 


j/l/ 
j/Io 


A4 ST 4 *J7 

OIjI// 


306 


002 




B ftTFPP* Mil 




jrHlLUKc. DUKlNb IHt KlRIUNu Or IHt rmt ur rui^lLKb 


S71Q 
J/17 
















S70A 


U1j2U1 


7Aa 
OVO 


AAO 




A.&TFPP* MiT 


1*0 


scati iipf nnPTun tuf pfmitur hf tuf uhmf si nrk' 
yrHiLUf\t l*Urun» inc. KtRUiNu ur inc. nunc, #LUU\ 


J/i.1 
















S70O 

J/ 


01 S907 


01 J 


71 S 


070 

vO£ 


unLL 


i TF! T 

tti LI 


iTUFOF rffifiT FPPRP^ APF F&T6I 


J/ £.0 


A1S^A4 


Aa** 


1SS 
1JJ 


AAA 


RTFPP1 i 

D f CI\!\X ♦ win 


FRPPIH1 


iTHTQ RTT HF rHTlF fiHFQ TW TUF UT HPffFP BVTF HF TUF 

f iilio oil Ur wuiHL UUto Irt inc. ni ui\L>LK c ! 1 1 Us Inc. rcUilD 


s?"71A 


A1S01 1 
viJ£ii 








n pr 


reur r 1 


iPFQTnPF PDTIiTTyri 


J/ iJ 


a 1 son 








P! TNF 

iL. J.RL. 


RTFATi 
d \ rrHL. 


frl\iRl nCooRUC. fBl 


11/ 




777 
00/ 






pm 


7 




i PPT KIT } TUF flF PUABQ 




A1S*71 A 


ioo 


A77 
VO/ 




♦ABDR 


BTFAIL 


tTlliFF TO PDTMT 

pDUrr iU rKiRi 


S7^A 


A1S01A 


AA1 


1SA 
1 J 4 ! 


AAA 


LXI 


HjERRCD 


} POINT TO THE ERROR CODE 


J/ £./ 


AIS'7^1 


71S 
01 J 


717 
Oi/ 


A7A 
UOv 


CALL 


P16 


i PRINT THE 16-BIT NUMBER 




A1 S^A 








PCRLF 




J PUT A CRLF AT THE END OF THIS LINE 


(0\ 


01 SOOA 


147 






RST 


4 




(0) 


01SOOS 


000 






.BYTE 


2 




S70Q 
j/ £.7 


01SOOA 


OvO 


OSS 
i.jj 


001 
vvi 


JMP 


REIKI 


5KILL THE PROCESS 


J/OV 
















5731 










iCGBE FOR UKEN ONLY BOOTSTRAP FAILS TO READIN 


5732 


015231 


041 


360 


040 


L.BTERR! LXI 


Hf STATE 


iGET POINTER TO STATE LIGHT 


5733 


015234 


076 


001 




MVI 


A? "001 


f SET FAULT LIGHT? BUT DONT CHANGE STATE 


5734 


015236 


266 






ORA 


M 


JTHROy CURRENT STATE WITH FAULT BIT 


5735 


015237 


167 






MOV 


M»A 


J PUT STUFF BACK 


5736 


015240 


076 


020 




MVI 


A,8*2 


j FAILURE DURING THE LOADING OF THE PRE-BOOT PROGRAM 


5737 


015242 


303 


206 


032 


JMP 


BTERR1 


fAVOID SOME CODE 
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5739 










^SUBROUTINE TO CHECK IF ft COMMAND FROM THE CSL BOARD HAS BEEN 


5740 










? GRANTED THE BUS** UHICH IT MUST ALWAYS BE GRANTED BECAUSE IT IS THE 


5741 










IBUS MASTER 






5742 


015245 


343 






BUSRESP* XTHL 




J GET POINTER TO TRAILING AR6 


5743 


015246 


333 


301 




IN 


SHSTS 


mm i/o rd 30i ***** 


5744 


015250 


057 






CMA 




J FIX INVERSION 


5745 


015251 


246 






ANA 


M 


f'AND' READ STUFF VS. TRAILING ARG 


5746 


015252 


043 






I NX 


H 


5 UPDATE TO RETURN ABDR 


5747 


015253 


343 






XTHL 




fSWftP RETURN BACK TO STACK 


5748 


015254 


311 






TtPT 

RET 




;RETURN.,"Z-BIT* CORRESPONDS TO 'AND' result: 


574? 
















5750 










f LI I ILt KUU1 LHt 


TO SET AND OR CLR THE SOFTWARE RUN FLAG 


j/ul 




006 


A A 




btiKN* nvi 


R.OTDTT 

D 1'J 1 Pi I 


tup UANT Tfl <?FT THF RUN 1 TfiHT 






61 J 


TOi 




IhLL 


STATFM 


•fin nn tt 


5753 


A* M/'S 

Q15262 


A4 "1 

017 








"(117 


friny UUrfl nHOtl HRI inino 


5754 


015263 


25/ 






VDA 
XKA 


A 
n 


«n FAR Am IM 


C"1CC 
J/JJ 


A 4 MZ A 


05/ 






LnA 




iArPIIM = -1 


5756 


A4 n/c 

015265 


A/*"} 

062 


4 ZC 

165 


AAA 

040 


RNCuni bTA 


PMFI R 
rVFtr LO 


suhih tu ruin ruHo 


5/5/ 


015^/0 


311 










JiMTl miT 


5758 
















5759 


015271 


AA / 

006 


AAA 

000 




rvi r»r«n » tint 

CLRRN* MMI 


B,0 


>WE D0NT UANT TO SET ANYTHING 


5760 


015273 


T4 C 

315 


326 


A"71 

032 


CALL 


STATEH 


iJUST GO AND CLEAR SOHE THINGS 


5761 


015276 


013 






*BYTE 


"013 


5 BITS TO KEEP 


5762 


015277 


257 






XRA 


A 


i CLEAR ACCUH 


5763 


A4 £T"7AA 

015300 


303 


265 


032 


JMP 


RNC0H 


J AND OUT. 


5764 
















57«>5 


A 4 

015303 








NUREFREhH* CLRB 


N0PNT 


STURM TYPING ON 


5766 


A4 C7AC 

015305 








CLRB 


CHKREF 


iSAY NOT TO REPORT OVER AND OVER 


5767 


A4 £T"TA"? 

015307 


74 C 

315 


346 


006 


LALL 


CLRUSE 


5 EXIT FROH USER HODE 


£7"? / fl 

5768 


A4 C"74 O 

015312 








Til TUr 

PLINE 


H0SHSG 


(MESSAGE TO CTY 


•MS 


01j312 


777 

33/ 






RST 


3 


5 PRINT LINE OF CHARS 


/ 4 \ 


A4 C"74 "7 

015313 


4 "7*7 

173 


A77 

037 




.ADBR 


M0SMSG 


JBUFF TO PRINT 


5769 
















5770 


015315 


365 






LTFLT5 PUSH 


psy 


5HUST SAME ACCUH TO GET CORRECT *BT ERR MSG* 


5771 


015316 


006 


001 




HVI 


B»l 


m MERELY WANT TO SET FAULT LIGHT 


5772 


015320 


315 


326 


032 


CALL 


STATEH 


»60 SET THE LIGHTS 


5773 


015323 


012 






.BYTE 


"012 


JBITS TO FLUSH WITH THIS 


5774 


015324 


361 






POP 


PSW 


j RESTORE ACCUM 


5775 


015325 


311 






RET 




f'AND NOW SAFE TO RETURN 



VER 6,2 KS10 CONSOLE PROGRAM CROSS - MICRO PROCESSOR ASSEMBLER 6(31) 3-HAY-79 16150 PAGE 3-187 
SUBRTN.H80 **** SOME ERROR CODES **** 



5777 {ROUTINE TO CLEAR AND SET BITS IN THE STATE WORD> THEN TO LIGHT 

5778 5 THE LIGHTS ON THE FRONT PANEL AS SPECIFIED BY THE STATE WORD 



5779 


015326 


343 






STATEMJ XTHL 




?GET POINTER TO MASK 


5780 


015327 


072 


360 


040 


LDA 


STATE 


» NOW FETCH CURRENT STATE OF THE MACHINE 


5781 


015332 


246 






ANA 


M 


f MASK AS SPECIFIED 


5782 


015333 


043 






INX 


H 


} UPDATE RETURN POINTER 


5783 


015334 


343 






XTHL 




5 AND PUT IT BACK ON THE STACK 


5784 
















5785 


015335 


260 






ORA 


B 


?NOW THROW IN ANY NEW BITS 


5786 


015336 


062 


360 


040 


STA 


STATE 


JNOW SAVE IT 


5787 


015341 


323 


101 




OUT 


LIGHTS 


> CHANGE THE LIGHTS 


5788 


015343 


311 






RET 




fOUT 
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vJ/VO 










? SUBROUTINE TO DECIDE IF 'FIRST" POINTS TO 


5791 










?AN END- Of -COMMAND CHARACTER. .C-BIT SET IF YESf 'FIRST* 


5792 










? DOES POINT TO END-OF-COMMAND.. ACCUMULATOR IS DESTROYED 


5793 


015344 


345 






EOCMLJ PUSH 


H 


* Ki it* Kit 18 

fSAvE HfL 


5794 


A4 C"? AC 

015345 


052 


223 


AAA 

040 


LHLD 


.AR61 


jutl LUhRtNl t-ulNlEK FOR CunnAND 


5795 
















5796 


015350 


176 






MOV 


A»H 


yfati CHARACTER 


5797 


A 4 C7C4 

015351 


376 


377 




CPI 


EOLCH 


? END-UF-COnMAND? f 


D/70 


A1 




ill 




JZ 


EOLYS 


S UIUD TC VCC 

fjunr lr its 


C700 
















COAA 

DoUU 


01j3j6 


3/6 


ACA 




CPI 


COMMA 


iORi END-OF-COMMAND?? 


COA1 

5801 


A4 6T7/ A 

01 5360 


31^ 


7£ / 

366 




JZ 


EOLYS 


J JUMP IF YES 


















jqUq 










?HERE IF NOT... CLR «CH 


BIT' 1 LEAVE 




Ai Kill 


m/ 






ANA 


A 


fCLR 'C-BIT' 


















5806 


015364 


341 






POP 


H 


5REST0RE "HfL" 


5807 


015365 


311 






RET 




» RETURN 


5808 
















5809 










fHERE IF YES» 


AT END-OF-COMMAND 


5810 


015366 


067 






EOLYS. STC 




/SET CARRY 


5811 


015367 


341 






POP 


H 


j RESTORE 'HiL' 


5812 


015370 


311 






RET 




> RETURN 
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JOi*t 










> SUBROUTINE TO HOVE 5 CONTIGUOUS BYTES BEGINNING 


JOl3 










jyiTH A SPECIFIED SOURCE ADDRESS 1 TO ANOTHER BUFFER AREA- ITS 


Dol6 










{ADDRESS ALSO PASSED AS A TRAILING ARG. SOURCE ADDRESS IS 


5817 










JFIRST TRAILING PARAMETI 


:R> DESTINATION IS SECOND TRAILING PARArfETER 


JDlO 


A1 5771 

UlDo/1 


7JM 






♦nUVDD* rur 


H 


?bti H?L rKUn IKAr HRNiiLtk 


CO 4 


UlDo72 


7ii7 

343 






VTUi 




* Cl IAD C'TAPk'* TfH3 i|TTU IU IB 

fbwftr olACK fur mIITH HfL 




A 15777 


705 
OZJ 






Pi ICU 

rUon 


r { 
u 


i cai ir i ri . r » 

fOHVC. Uft 




A1 C .77A 
UiJO/ i t 


7A5 
OvJ 








ft 


iQAiir •R.P 1 
fOHVL Dfb 




Ai 5775 
vIOO/ J 


11 c « 


Did 


All 
vOO 


PA! i 




tAcqruDi c adec TUTfl 8 Fur* ANTl » fi * F 1 

fnOOLnDLL rmuO i«SU J??L? Hni« JL*?L 


Wl 

t?U£.0 


















ViUlVV 


11s 


007 

vv/ 


011 


CALL 


H0URFG 

i tUVnLU 


?H0UF THE IlATAt ARfft PAWfi TN RFRT C ;TFRR 






101 






PflP 

rur 


Xi 
D 


•RFSTflRF "Rif 1 

f F\LO ! imL D ? u 




01 r i404 


191 






PHP 
rur 


it 


tRFSTfiRF 8 ri*F 8 


5827 
















5828 


015405 


343 






YTW! 
A 1 riL 




?fttoiUr\£ of RU\ 


■jQc.7 


01 S40A 


11 1 

Oil 






OCT 




fnnU i\LIUr\n 


□OOv 
















JOui 


A1 5AA7 


A7A 
v/O 


AA5 
UvJ 




H0VREG5 HVI 


A>5 


iSET COUNTER TO 5 




A15A1 t 


A75 






H5B5 DCR 


A 


* DOWN COUNTER 


Dooo 


A15A10 
Ulj4l£ 


7A>i 
OU4 


A1 1 




CNZ 


H5B 


? AND BE RECURSIVE TILL DOWN COUNTED 


5834 
















5835 


015415 


012 






LDAX 


B 


5BYTE TO ACCUH 


5836 


015416 


022 






STAX 


D 


} STORE AT DESTINATION 


5837 


015417 


023 






INX 


n 


iUP BOTH PNTRS 


5838 


015420 


003 






INX 


B 


} TO NEXT BYTE 


5839 


015421 


311 






RET 




I AND BACK TO CALLER 


5840 
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5842 
5843 
5844 
5845 
5846 
5847 

5848 015422 343 

584? 015423 315 044 033 

5850 015426 343 

5851 01542? 353 

5852 015430 026 005 
5853 

5854 015432 012 

5855 015433 276 

5856 015434 300 

5857 015435 003 

5858 015436 043 

5859 015437 025 

5860 015440 302 032 033 

5861 015443 311 
5862 



f SUBROUTINE TO COMPARE 2 36-BIT VALUES. 

ilF THE ADDRESSES OF THE 2 36-BIT BUFFERS ARE 

i PASSED AS TRAILING PARAMETERS TO THE ROUTINE 

{IF BOTH BUFFERS ARE THE SAME. THE 'C-BIT" IS 

JCLR UPON RETURN, IF THEY ARE DIFFER* THE 'C-BIT* IS 

5 SET ON RETURN, 



VTl It 

XTHL 




jSwAP STACK TOP WITH h»L 


CALL 


TARG2 


56ET THE 2 TRAILING ARGS INTO 


XTHL 




iPUT RETURN BACK ON STACK 


XCHG 




5SUAP 'BiE' 1 'HiL* 


HVI 


D>5 


{SET COUNTER TO 4, 


LDAX 


B 


f GET A BYTE OF DATA 


CMP 


M 


{COMPARE 


RNZ 




{RETURN WITH Z-CLR IF HAD ERR 


INX 


B 


{BUMP POINTER 


INX 


H 


{BUMP OTHER POINTER 


DCR 


D 


5 DOWN COUNT 


JNZ 


CMPLP 


{CONTINUE TILL DONE 


RET 




{NORMAL RETURN 
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JOOn 










5 SUBROUTINE TO ASSEMBLE TRAILING ARGS INTO REGISTER PAIRS, 


5865 










} ROUTINE USED TO SAME CORE ONLY BECAUSE THIS SEQUENCE OF CODING 


5866 










JIS REPEATED SO OFTEN t * 


'H»L* POINTS TO THE TRAILING ARG OF THE 


5867 










{ORIGINAL CALLER. ."BjE* AND 'B»C' MUST HAVE BEEN SAVED BEFORE 


5868 










.THIS ROUTINE IS CALLED OR THEY WILL BE DESTROYED. , IF A SINGLE 


586? 










i TRAILING ARG IS TO BE GATHERED UP, IT UILL BE PUT INTO THE 


C07A 










fREB PAIR 'Di 


E* VIA THE CALL *TARGr».IF 2 TRAILING ARGS TO BE 


j871 










5 GATHERED UP, 


THE FIRST UILL BE PUT INTO 'BrC AND THE SECOND 












5 HILL BE PUT INTO *D»E* 


,,'H»L' IS UPDATED TO POINT TO THE BYTE 


£077 

JO/O 










JFOLLOyiNG THE TRAILING ARGS.. 


5.B7A 

JO/*! 




llo 






TARG2J 


MOV 


CiH 


?L0 ORDER SOURCE TO 'C 


JO/3 


A15AA5 


AA7 








INX 


H 




JO/O 


A15AAA 
vi J^fO 


1 AA 
IvO 








MOV 


B»M 


J HI ORDER SOURCE TO *B' 


5077 

JO / / 


A15AA7 
vi J*H/ 


AA7 
V*rO 








INX 


H 




5P7B 
JO/O 


















5070 

jo/y 


A15A5A 


17A 

loo 






TARG15 


MOV 


EiM 


JLO ORDER SOURCE TO 'E* 


JOOv 




AA7 








INX 


H 




JOOi 


A1 5A57 


19A 
l£0 








MOV 


DiK 


SHI ORDER SOURCE TO *D* 


JOOi. 


A1 5A57 


AA7 








INX 


H 




5007 

jobd 


















500A 
J004 


Uij4j4 


71 i 
Oil 








RET 




i AND RETURN 


rnnc 

5885 










f SUBROUTINE TO ADD 1 TO A 36-BIT BUFFER AND GUARANTEE 


STQQZ 
JOOO 










J THAT THE CARRY PROPAGATES CORRECTLY. BUFFER TO BE 


5887 










5 INCREMENTED 


IS PASSED AS A TRAILING ARG. 


cooo 

JOOO 


Al c jirc 

U1j4jj 


343 






INC36J 


XTHL 




J GET POINTER TO TRAILING ARG 


5000 
J007 


A15A5A 
UiJ^JO 


71 5 
3lJ 


A5A 

Ujv 


A77 




CALL 


TARG1 


{ASSEMBLE ARG INTO *DrE' 


500A 
JOYU 


















5004 
JO 71 


Q1j461 


343 








XTHL 




»PUT RETURN BACK ON THE STACK 


coon 
j8y2 


A 4 CA /n 

015462 


353 








XCHG 




{NOW HiL PNTS TO BUFFER TO BE INCREMENTED 


2073 


















5894 


015463 


257 








XRA 


A 


{CLR THE ACCUH 


5895 


015464 


067 








STC 




{ AND SET ■C-BIT" 


5896 


















5897 


015465 


216 






INCLP! 


ADC 


M 


{ADD PIECE OF DATA BUFF. KITH CRY 


5898 


015466 


167 








MOV 


MiA 


{AND PUT IT BACK* WITH THE ADDITION 


5899 


015467 


320 








RNC 




{RETURN IF FINALLY STOPPED CRY'S INTO NEXT 


5900 


015470 


043 








INX 


H 


{NEXT PIECE TO INC 


5901 


015471 


303 


065 


033 




JHP 


INCLP 


{AND CONTINUE IF THESE MAS A CRY 
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5904 
5905 
5906 
5907 
5908 
5909 
5910 
5911 
5912 
5913 

5914 015474 

5915 015474 343 

5916 015475 315 050 033 

5917 015500 343 
5918 

5919 
5920 
5921 

5922 015501 

5923 015501 325 

5924 015502 333 000 

5925 015504 057 

5926 015505 022 

5927 015506 023 

5928 015507 333 001 

5929 015511 057 

5930 015512 022 

5931 015513 023 

5932 015514 333 002 

5933 015516 05? 

5934 015517 022 

5935 015520 023 

5936 015521 333 003 

5937 015523 057 

5938 015524 022 

5939 015525 023 

5940 015526 333 103 

5941 015530 057 

5942 015531 346 017 

5943 015533 022 

5944 015534 321 

5945 015535 311 



J SUBROUTINE 'RDATT' 

J ROUTINE READS I/O REGISTERS 0>l»2i3 ? 103 AND MOVES THE 
? DATA IN THOSE BUFFERS (BUS. BITS 0-35) INTO A RAM AREA 
tUHOSE ADDRESS IS SPECIFIED BY A TRAILING PARAMETER 
J USED yiTH THE CALL TO THIS ROUTINE 
JCALL is: 

J CALL RDATT 

J m XXX SXXX IS PLACE TO HOME THE 36 BITS OF DATA 

J ACCUMULATOR IS DESTROYED r REG PAIR "D?E" IS INCREMENTED BY 5. 

RDATT 5 

XTHL ;SVtf> STACK TOP WITH %L» 

CALL TARG1 » ASSEMBLE TRAILING ARG INTO 'DiE" 

XTHL JPUT BACK THE STACK 

j THE REAL READING CODE BEGINS HERE I ALSO SERVES AS AN 
i ALTERNATE ENTRY IF YOU CHOOSE TO PASS THE BUFFER ADDRESS 



j IN REGISTER "1 


hV 




RDATP! 






PUSH 


D 


JSAVE 'D»E' 


IN 


D2835 


;**«** I/O RD '0' (BITS 28-355 ***** 


CMA 






STAX 


D 


JSAVE IN RAM 


INX 


D 


JUP PNTR TO NEXT BYTE 


IN 


D2027 


mm I/O RD T (BITS 20-27) ***** 


CMA 






STAX 


D 


f SAVE IN RAM 


INX 


D 


5 UP PNTR TO NEXT BYTE 


IN 


M219 


J*****I/0 RD "2* (BITS 12-19) ***** 


CMA 






STAX 


D 


JSAVE IN RAM 


INX 


D 


JUP PNTR 


IN 


D0411 


;***«* I/O RD *3" (BITS 4-11) ***** 


CMA 






STAX 


D 


JSAVE 


INX 


D 


JUP PNTR 


IN 


D0003 


J***** I/O RD '103* (BITS 0-03) ***** 


CMA 






ANI 


"017 


f OFF TRASH IN D BITS 7-4 


STAX 


D 


JSAVE 


POP 


D 


(RESTORE 'DfE' 


RET 




J RETURN 
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5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 
5970 
5971 
5972 
5973 
5974 
5975 
5976 
5977 
5978 
5979 



015536 343 

015537 315 050 033 
015542 343 



015543 325 

015544 032 

015545 323 102 
015547 023 

015550 032 

015551 323 104 

015553 023 

015554 032 

015555 323 106 
015557 023 

015560 032 

015561 323 110 

015563 023 

015564 032 

015565 323 112 
015567 321 
015570 311 



» SUBROUTINE *WDATT" 

> ROUTINE WRITES I/O REGISTERS 102>104ilMillO»112 AND GETS 
i EITHER PASSED AS A TRAILING PARAMETER > OR PASSED IN 'D»E' 
JCALL is; 

i CALL WDATT 

i du xxx ixxx is source of data to be written 

wdattj xthl ?swap stack top with 'h.l' 

call targ1 » assemble trailing arg into *d»e' 
xthl 5 swap stack back to original state 

(alternate entry for when passing data pointer in "b>e" 



WBATPJ PUSH 
LDAX 
OUT 
INX 

LDAX 

OUT 

INX 

LDAX 

OUT 

INX 

LDAX 

OUT 

INX 

LDAX 
OUT 
POP 
RET 



D 
D 

W2835 



D 

W2027 
D 

D 

W1219 
D 

D 

W0411 
D 

D 

W0003 



SAME *DjE* 

DATA 28-35 TO ACCUM 

***** I/O WRT »102* (BITS 28-35) ***** 
NEXT DATUM 

DATA 20-27 TO ACCUM 

***** I/O WRT ■104' (BITS 20-27) ***** 

NEXT DATUM 

DATA 12-19 TO ACCUM 

***** I/O WRT *106' (BITS 12-19) ***** 

NEXT DATUM 

DATA 4-11 TO ACCUM 

***** I/O WRT '110* (BITS 04-11) ***** 
NEXT DATUM 

DATA 0-3 TO ACCUM 

***** I/O WRT '112 1 (BITS 00-03) ***** 

RESTORE 'DjE* 

RETURN 
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5981 
5982 
5983 
5984 
5985 
5986 
5987 

5988 015571 

5989 015572 

5990 015575 
5991 

5992 

5993 015576 

5994 015577 

5995 015600 

5996 015602 
5997 

5998 015603 

5999 015604 

6000 015606 
6001 

6002 015607 

6003 015610 

6004 015612 
6005 

6006 015613 

6007 015614 

6008 015616 
6009 

6010 015617 

6011 015620 

6012 015622 

6013 015623 



343 

315 050 033 
343 



325 
032 

323 103 
023 

032 

323 105 
023 

032 

323 107 
023 

032 

323 111 
023 

032 

323 113 

321 

311 



{SUBROUTINE 'ADATT' 

{ROUTINE WRITES I/O REGISTERS 103»105ilQ7flllfll3 AND GETS ABBR 
J EITHER PASSED AS A TRAILING PARAMETER? OR PASSED IN 'D»E' 
f CALL is: 

{ CALL ADATT 

{ DU XXX 5 XXX IS SOURCE OF DATA TO BE WRITTEN 

ADATT J XTHL {SWAP STACK TOP WITH %L' 

CALL TARG1 5 ASSEMBLE TRAILING ARG INTO *B?E* 
XTHL {SWAP STACK BACK TO ORIGINAL STATE 

ALTERNATE ENTRY FOR WHEN PASSING DATA POINTER IN *D»E« 



ADATPI PUSH 
LDAX 
OUT 
INX 

LDAX 

OUT 

INX 

LDAX 

OUT 

INX 

LDAX 

OUT 

INX 

LDAX 
OUT 
POP 
RET 



D 
D 

A2835 
D 



A2027 
D 

D 

A1219 
D 

D 

A0411 
D 



A0003 



»SAME *DiE' 

{DATA 28-35 TO ACCUM 

{«*** I/O WRT '103' 

{NEXT DATUM 



(BITS 28-35) ***** 



{DATA 20-27 TO ACCUH 

{****« I/O WRT *105* (BITS 20-27) ***** 

5NEXT DATUM 

{DATA 12-19 TO ACCUM 

{**«** I/O WRT '107' (BITS 12-19) ***** 

{NEXT DATUM 

{DATA 4-11 TO ACCUM 

****** I/O WRT '111* (BITS 04-11) ***** 
{NEXT DATUM 

DATA 0-3 TO ACCUM 

***** I/O WRT '113' (BITS 00-03) ***** 

RESTORE 'foV 

RETURN 
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6015 } LOCAL SUBR01 

6016 015624 341 .CLRRMJ POP 

6017 015625 343 XTHL 

6018 015626 315 050 033 CALL 
601? 015631 343 XTHL 

6020 015632 353 XCHG 

6021 015633 076 005 HVI 

6022 015635 053 CLRTil DCX 

6023 015636 066 000 HVI 

6024 015640 075 BCR 

6025 015641 302 235 033 JNZ 

6026 015644 311 RET 
6027 



!E TO CLR 

H 5FIX REG AS MESSED UP BY RST INSTR 
» POINTER TO THE TRAILING PARAM 

TARG1 JASSY ARG INTO "DfE" 

iFIX "HiL" AND REPLACE FOR RETURN 
iPUT 'BfE* STUFF INTO *H»L' 

A»5 J AND SET STARTING COUNT TO 5 

H 5 DOWN THE MEM ADDRESS 

HiO iO DATA TO HEM 

A JBOHN THE COUNTER 

CLRT1 » BACK TILL DONE 
f RETURN 
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6029 
6030 
6031 
6032 
6033 
6034 
6035 

6036 015645 
603? 015646 

6038 015647 

6039 015650 

6040 015651 

6041 015653 
6042 

6043 

6044 015656 

6045 015660 
6046 

6047 

6048 015663 

6049 015664 
6050 

6051 
6052 
6053 
6054 

6055 015665 

6056 015666 

6057 015667 

6058 015670 

6059 015671 

6060 015672 

6061 015673 

6062 015674 

6063 015677 

6064 015700 

6065 015701 



365 
053 
043 
176 

376 040 
312 247 033 



376 Oil 
312 247 033 



361 
311 



343 
365 
176 
043 
075 
365 
361 

302 271 033 

361 

343 

311 



{SUBROUTINE TO SHALLOW SEPARATOR CHARACTERS FROM THE ADDRESS POINTED 
JTO BY 'HfLS UP TO THE FIRST NON-SEPARATOR CHARACTER. 
{SEPARATORS ARE I 
5 "SPACE" 
{ "TAB* 

.ONLY THE "HjL" REGISTER SHOULD BE CHANGED BY THIS ROUTINE 



SEPCHRi PUSH PSy 



fSAVE ACCUH AND STATUS 



DCX 

SEPYS5 INX 
MOV 
CPI 
JZ 



H 
H 

A»M 
SEPYS 



IELSE SEE IF ITS A TAB 
CPI 

JZ SEPYS 



tuum COUNT HjL SO NUT INSTR WILL MAKE IT EVEN 
iUP THE COUNT 

{COPY CHARACTER INTO ACCUM 
{IS THE CHAR A "SPACE* 
{GO UPDATE "HfL" IF YES,, 



?IS THE CHAR A "TAB" 
{GO UPDATE "H»L" IF YES 



SELSE NO MORE SEPARATORS-TIME TO RETURN 

POP PSW {RESTORE ACCUM AND STATUS 
RET {ALL DONE RETURN 

♦SBTTL SUBROUTINE TIME DELAY 

{EACH UNIT OF DELAY COUNTED IN THE TRAILING BYTE IS WORTH 1,02 MICRO-SEC 
{THIS SUBROUTINE WASTES SOME AMOUNT OF TIME,, THE GREATER THE TRAILING 
{ARGUEMENTf THE MORE TIME IS WASTED,,. 

DELAY,? XTHL ?GET POINTER TO TRAILING ARG INTO "HjL" 

PUSH PSW 5N0W SAVE ACCUM 
MOV AiM {GET THE TRAILING ARG INTO ACCUM 
INX H {UP DATE TO CORRECT RETURN LOCATION 

DLYLP5 DCR A 5 DOWN THE COUNTER 

PUSH PSW {ADD MORE DELAY IN THE LOOP 

POP PSW { BECAUSE PUSHES AND POPS TAKE LONG TIME 

JNZ DLYLP {LOOP TILL ZERO 

POP PSW {RESTORE ACCUM 

XTHL {PUT RETURN BACK ONTO THE STACK 

RET ?AND DONE 
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6067 
6068 
6069 
6070 
6071 

6072 015702 

6073 015703 

6074 015704 
6075 

6076 015707 

6077 015710 

6078 015711 

6079 015712 

6080 015713 
6081 

6082 015716 

6083 015721 

6084 015724 
6085 

6086 015725 

6087 015726 



032 
247 

312 316 033 

276 
300 
023 
043 

303 302 033 

042 223 040 
315 344 032 
330 

264 
311 



.SBTTL STRING COMPARE ROUTINE 

.ROUTINE TO COMPARE A TYPED IN ASCII STRING VERSUS SOME EXPECTED 
5 STRING. ENTER WITH 'H.L 1 POINTING TO THE BEGINNING OF THE TYPE-IN 
i BUFFER AND WITH D»E POINTING TO THE EXPECTED STRING, 
5 RETURN Z-BIT CLR IF NO MATCH,,. Z-BIT SET IF HATCH 



STRCHP! LDAX 
ANA 
JZ 

CMP 
RNZ 
INX 
INX 
JMP 

STREWN SHLD 
CALL 
RC 

ORA 
RET 



D 

A 

STREND 
M 

D 
H 

STRCMP 

.ARG1 
EOCML 



» GET FIRST EXPECTED CHARACTER 

.SET FLAGS TO SEE IF ZERO BYTE 

IIF ZERO BYTE? END OF EXPECTED STRING,. 



OUT 



IIF A REAL BYTE. COMPARE AGAINST THE TYPE-IN 

J IF NO MATCH? TAKE ERROR RETURN 

J IF MATCH f UPDATE TO NEXT EXPECTED 

J AND UPDATE TO NEXT TYPED IN, 

.LOOP 

.PASS CURRENT POINTER TO ROUTINE THAT CHECKS FOR EOL 
.CHECK THAT TYPE IN WAS TERMINATED 
i IF YES. Z-BIT IS SET..,, OK TO RETURN 

.CLR Z-BIT FLAG. , H WILL BE NON-ZERO 
.AND OUT 
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6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 
6099 

6100 015727 

6101 015732 

6102 015734 

6103 015735 

6104 015740 

6105 015742 
6106 

6107 015745 

6108 015747 
6109 

6110 
6111 

6112 015752 

6113 015755 
6114 

6115 
6116 

6117 015757 
6118 
6119 
6120 

6121 015762 



072 360 040 

323 101 
170 

062 124 040 

376 004 

312 016 034 

376 006 

312 371 033 



072 247 040 
376 010 



304 101 034 



006 002 



j ROUTINE CALLED WHENEVER KLINIK SWITCH CHANGES STATE 
?THE ROUTINE EXAMINES THE NEU STATE OF KLINIKiZAPS THE LIGHTS AS REQUIRED 
J THEN SETS THE KLINIK LINE INTO THE APPROPRIATE STATE. IF KLINIK WAS 
^ESTABLISHED, GOING TO ENABLE POSITION WILL CHANGE NOTHING, BUT ANY SWITCH 
» CHANGE THAT INCREASES THE AMOUNT OF PROTECTION WILL FORCE CHANGE THE 
JMODE OF THE KLINIK LINE. 

» THE ROUTINE IS ENTERED WITH "B" HOLDING THE NEW KLINIK SWITCH STATE, AND 
i'KLNKSW* HOLDING THE OLD STATE, VALUES ARE AS FOLLOWS! 
i ENABLE = 2 
i PROTECT = 6 
i DISABLE = 4 
KLNKLT5 LDA STATE 

OUT DTR 

MOV AfB 

STA KLNKSW 

CPI 4 

JZ SETHO 



IMUST GUARANTEE DTR HAS BEEN RESTORED 
JDO IT 

iCQPY KLINIK STATE INTO THE ACCUM 
iSAVE THE NEW STATUS 
fIS SWITCH NOW IN DISABLED POSITION 
'M SET MODE IF YES 



CPI 6 5 IS SWITCH NOW IN THE PROTECT POSITION? 
JZ ♦SETHI ilF YES, GO SET MODE 1 

JFALL THRU IF NEW SWITCH POSITION IS THE "ENABLE* POSITION 

».. FIRST CHECK CURRENT MODE. IF IN MODE 3 ALREADY, WE MAKE NO CHANGE 

LDA CSLHODE 5 GET CURRENT CSL MODE 

CPI .M0DE3 J IS IT MODE 3 

J FLAGS ARE SET, FALL INTO CODE THAT DOES THE RIGHT THING IF IN MODE 3 

CNZ SETH2 J IF WAS NOT MODE 3, THIS WILL SET MODE 2 
J AND FALL INTO KL.LON CODE 

KL.L0N5 MVI B»2 f GET A BIT FOR SETTING THE REMOTE LIGHT ON 



6123 }ANB FALL INTO CODE FOR SETTING THE LIGHTS 

6124 015764 315 326 032 KL.LAMP5 CALL STATEM 5SET LIGHTS AS SPECIFIED IN B REG 

6125 015767 375 .BYTE "0375 J KEEP ALL LIGHTS, 'CEPT REMOTE 

6126 015770 311 RET J AND DONE WITH THIS MESS 
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6128 










.SBTTL UART MODE MODIFICATIONS 


6129 










5C0DE FOR SETTING THE KLINIK LINE INTO MODE 1 


6130 


015771 


072 


262 


040 


♦SETHI J LDA 


PASSWORD » GET CURRENT PASSWORD 


6131 


015774 


247 






ANA 


A » SET FLAGS TO SEE IF ANY PASSWORD EXISTS 


6132 


015775 


312 


016 


034 


JZ 


SETMO ilF NO PASSWORD, THEN SET INTO MODE 


6133 


016000 


304 


006 


034 


CNZ 


SETHI 5 IF PASSWORD EXISTS* SET THINGS INTO MODE 1 


6134 


016003 


302 


362 


033 


JNZ 


KL.LON 5 IF WE WENT MODE it THEN MUST TURN ON LIGHT 


6135 














dl36 










iCOBE FOR ACTUALLY SETTING THE KLINIK LINE MODE TO 1 


Li 71 


A1 £AA£ 


A7i 

U/o 


AA*) 




O&mXt nVi 


Hf tnUuLi futl nUl»fc a rLRb 


olio 


Ai ZA1 A 

vl6010 


AJH 
041 


213 


AI A 

ulu 


LXI 


HiHODEl 5GET THE MODE 1 DISPATCH 


Li 70 

613? 


A1 ZA1 1 

016013 


7A7 

303 


123 


034 


JMP 


SETH JSET UP RAM 


li 4A 














6141 










iCODE THAT SETS 


BOTH MODE AND THE APPROPRIATE LIGHTS 


6142 


A 4 /A4 / 

016016 








SETMO; CLRB 


KLLINE.ON > DISABLING KLINIK KILLS CTY AVAILABILITY 


6143 


A 4 / A1A 

016020 


AA / 

006 


AAA 

000 




HVI 


B»0 5 THE PASS LIGHTS OFF IN REGISTER "B' 


/ 4 k k 

6144 


016022 


315 


1 / k 

364 


033 


CALL 


KL.LAHP » AND GO DO THE LIGHTS 


/ 4 AC 

6145 


A4 / ftfJC 

016025 


315 


134 


AT k 

034 


CALL 


HANGUP s CLEAR KLINIK LINE 


6146 


016030 


076 


001 




HVI 


Af.HODEO J GET THE MODE FLAG 


6147 


016032 


041 


200 


010 


LXI 


H.HODEO JGET THE MODE DISPATCH 


6148 


016035 


303 


123 


034 


JHP 


SETH JSET UP RAH 


614? 














6150 










JCOBE TO SET US 


INTO MODE 3 


6151 


016040 


076 


010 




SETH3J MVI 


Af »H0DE3 »GET MODE 3 FLAG 


6152 


016042 


041 


373 


005 


LXI 


H.M0DE3 5GET THE MODE 3 DISPATCH 


6153 


016045 


303 


123 


034 


JHP 


SETH .SET UP RAH 
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61 J J 










JCODE TO SET US INTO MODE 4 


L i Ci. 

61j6 


A i ZACA 

0160j0 


A"n 

072 


1 cz 

1j6 


AAA 
040 


CCTkiA* 1 ft A 


iiCDuri sccc tc uccD . tc uuTfij pacc i.ir unkiT nn *fcinriCA* 


LiKI 
615/ 


tSi ZAC7 

0160%j3 


24/ 






AHA 


A »OCT QAQft CI AfiO 


L i CQ 

6158 


016054 


7AA 
300 








» AUfi niiT tc hocd wnrtc 
?hNU UUI lr Ubfch flUDfc. 


615? 














Li ZA 

6160 










jftLLUn nUbi < 


rn a TP rri t Tn urc«r 
>tu» lr rtLL IU HLHfc 


Li Li 

6161 


0160j5 


azh 
062 


2j2 


AAA 

040 


CTA 
blR 


MAT! Cft iDCTTCD PI CAD TUTC CI Aft TfiH 

nfiiLrU f DC i I fc.h ILtflK lnlo rLRb IUU 


L i L*i 

6162 


A4 ZAZA 

016060 


AZO 

062 


301 


AAA 

040 


CTA 


C PUT SliCC CACTCCT MAY TH PI CAD TUTCi 1 fiPATTfiU 

t»LNI fubt rflbitbl wfli IU LLtRK mib LUirRl iUN 


Li LI 

6164 


A4 ZAZ7 

016063 


041 


OCA 

2j0 


AA 1 

041 


i YT 

Lax 


U.C B.CE-1 SAMR PCCCT FMUf-l ft&FB 


Li LA 

6164 


A1 LiSLL 

016066 


AAO 

042 


24/ 


AAi 
041 


brlLli 


C DHC 

t ♦ 8Ur 


6165 


016071 


A7Z 

076 


A'JA 

020 




nvl 


a. unrtCA ifiCT unfiC a ci ae 


li i i 

6166 


A 4 / ATT 

016073 


041 


AAT 

007 


A7C 

035 


i VT 
LAI 


U . UntiC A *ECT TUC UHTiC A TiTCDATPU 

H f nUlJL4 ibt 1 I He. nulit 4 UibrRiLH 


6167 


AH / A"?/ 

016076 


TAT 

303 


i *J7 

123 


A7A 

034 


JHr 


CCTM 5CCT I ID DAM 

bfcln fbtl Ur hRH 


£1 ZD 

516c 














Zi ZD 

616? 










± cct i tmc Tn 
yoti Lint iu 


«nric o 
nulit £ 


Li "5A 

6170 


A<j / 4 A4 

016101 


0/2 


247 


AAA 
040 




PC! unriC * DCCftDC AklVTUTklfi CI CC. CCC UUAT LIC ADC TiHTyfi UHU 

tbLnUiit fptrUKt RNilnirib tLbt? btt mm RKt liUlNb NU» 


6171 


A -i HA* 

016104 


346 


AA7 

003 




AWT 

RN1 


unncA i MnriCi * tc Mnricc a od -t miu^t tmtcddi idt k*oi a 
♦nUULU! ♦nUUfcl >ir nUUcb UK a? nUb! lmthhUrl »\blU 


61/2 


t\i Li Pii 

016106 


312 


116 


A7A 

034 


Jz, 


DCTMflV * TC kifiT TinkST TjOTUCD k'CI A AT Ai i 

btlruA >lr NUh JiUNl du i HtK l\bl0 Rl hLL 


Li "11 

61/3 














6174 


016111 


076 


002 




HVI 


A?KL*ACTIME fMUST INFORH THE TEN THAT WE ARE ENTERING KLINIK 


6175 


016113 


315 


156 


034 


CALL 


URD34 J CALL ROUTINE THAT WRITES WORD 34 


6176 


016116 


041 


004 


on 


SETH2X5 LXI 


HiK0DE2 ?GET DISPATCH FOR MODE 2 


6177 


016121 


076 


004 




HVI 


AmH0DE2 J SET HOE TWO TO THE STATE FLAG ALSO 


6178 


016123 


062 


247 


040 


SETH5 STA 


CSLH0DE 


6179 


016126 


042 


346 


040 


SETDISJ SHLD 


H0DDIS J AND SET TO KLINIK DISPATCHER 


6180 


016131 


311 






RET 


i AND ALL DONE 
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Li GO 










JLITTLE ROUTINE TO HANG UP THE KLINIK LINE 


/ 4 at 

6183 


A 4 L 4 T\ 

016132 








KILL.KLINIKJ clrb klnksw i FORCE A RELOOK AT THE REMOTE SWITCH 


6184 


016134 


072 


360 


040 


hangup; lda 


STATE 


J GET CURRENT STATE 


6185 


016137 


346 


007 




AN I 


"07 


f OFF THE "DTR" SIGNAL 


6186 


016141 


323 


101 




OUT 


DTR 


ICLR DTR 


6187 


016143 


076 


003 




MVI 


AfCARRLOSS fTELL KS10 THAT KLINIK CARRIER HAS GONE 


6188 


016145 


315 


156 


034 


CALL 


WRD34 


j DEPOSIT INTO WORD 34 


618? 


016150 


041 


220 


001 


LXI 


H,200. * 2 J SET A TIMEING DELAY OF 2 SECONDS 


6190 


016153 


303 


134 


A<i k 

014 


JMP 


LTLOOP 


ISO DO DELAY i AND USE HIS RETURN TO EXIT 


OiYl 


























J ROUTINE FOR DOING SIMPLE DEPOSIT INTO KS10 MEMORY AT WORD 34 > AND 


Q170 










J THEN INTERRUPTING THE 10 


AiQA 
Oi7*r 


UiOiuu 


vfOJ 






WRD34J PUSH 


PSW 


JSAVE ACCUM % STATUS 


Oi/J 


vlOX J/ 








CLRRM 


DMDAT 


} CLEAR A BUFFER 


Hi/ 


vioiJ/ 








RST 


4 




/ 1 \ 

Mi 


A1 Ai AA 
ViOiOv 


A19 






.BYTE 


10, 




i 1 \ 


A1 £1 L\ 
U1616I 


A5A 


AiA 




* ADDR 


DMDAT+5 




6196 


IK4 14 11 

016163 


1 1 4 

361 






POP 


PSW 


J FETCH THE ACCUM'S CONTENTS AGAIN 


6197 


016164 


043 






INX 


H 


jBUMP H»L( VALUE AFTER A CLRRM IS ,EG, 1ST 1 


6198 


016165 


167 






MOV 


M»A 


i STORE DATA AT 'DMDAT+1' 


6199 


016166 








DEPOS 


34 


{DEPOSIT 


(1) 


016166 


247 






" ANA 


A 


?CLR 'C-BIT' FOR USE BY COMMON CODE 


(1) 


016167 


315 


217 


030 


CALL 


DEPSHT 


f AND DO THE DEPOSIT ASSUMING SHORT ADDR 


£1) 


016172 


034 


000 




•ADDR 


34 


$ ADDR TO BE ZAPPED PASSED AS TRAILING ARG 


6200 


016174 


303 


057 


010 


JMP 


P0KE10 


f INTERRUPT THE KS10 S USE HIS RETURN 
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6202 










.CODE USED IN ADDING UP THE CHECKSUMS ON ENVELOPES TO BE SENT 


6203 


016177 


200 






chkadd: add 


B 


J HERE TO ADD HEW CHAR TO THE CURRENT SUM 


6204 


016200 


107 






MOV 


BfA 


>AND KEEP THE RESULTS IN 'B« 


6205 


016201 


043 






INX 


H 


JBUNP UP TO LOOK AT THE NEXT CHAR 


6206 


016202 


303 


1*7 4 

231 


AT k 

034 


JMP 


TSKLP 


IBACK TO LOOP 


/ 1A"? 

6207 
















/1AO 

6208 










I THIS IS THE APT ENVELOPE SENDER., WHEN WE HAVE A BUFFER OF INFO TO SEND TO 


6209 










> THE APT HOST SYSTEM* THIS IS THE CODE THAT GETS CALLED 


/ 14 A 

6210 


A 4 /I AC 

016205 


A"71 

072 


1C1 

252 


AAA 

040 


DECNET} LDA 


MAILFG 


J ONLY DO SOMETHING HERE IF THE MAILING FLAG SET 


bill 


A i £H A 

016210 


247 






H«R 


A 


?SET 8080 FLAGS 


1 


A4 /14 4 

016211 


li A 
3lG 






hi 




?N0 FLAG? NO SENBY..*. 


/ 14 *? 

6213 
















/ 14 A 

6214 


A4 / 14 1 

016212 


373 






EI 




JABSOLUTLY MUST ALLOW INTERRUPTS » IN CASE HOST DIES 


6215 


A 4 / 1 4 "7 

016213 


A "71 

072 


A4 4 

011 


All 

042 


LDA 


ENVMNO 


i FIRST THING TO DO IS COMPLIMENT THE MESSAGE NUMBER 


/ 14 / 

6216 


A4 ' 14 / 

01&216 


057 






CMA 




J FLIP 


6217 


016217 


346 


177 




ANI 


"0177 


JNO SIGN BITS ALLOWED 


6218 


016221 


062 


011 


042 


STA 


ENVMNO 


iPUT IT BACK 


/HI 

621? 
















6220 


A4 / 11 A 

016224 


A A 4 

041 


A4 "T 

013 


A A1 

042 


LXI 


HjENVBUF IFIRST THING TO DO IS COMPUTE CHECKSUM FOR THE ENVELOPE 


6221 


016227 


006 


000 




MVI 


B»0 


»'B* WILL HOLD THE CURRENT SUM 


6222 


016231 


176 






TSKLP5 MOV 


A»M 


JSRAB A CHARACTER 


6223 


016232 


376 


015 




CPI 


CRCHR 


iSEE IF END OF THE ENVELOPE CHARACTER 


6224 


016234 


312 


243 


034 


JZ 


TSKGO 


? IF YES » GO TO THE ACTUAL SENDER 


6225 
6226 


016237 


247 






ANA 


A 


» MAYBE THE CHAR WAS A Oi BECAUSE THERE IS NO CRCHR 


6227 


016240 


302 


177 


034 


JNZ 


CHKADD 


5 IF NOT, GO ADD THE CHARACTER TO THE SUM 
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622? 










i HERE WHEN TIME TO ACTUALLY MAIL AN ENVELOPE 


6230 


016243 


AA7 

043 






TSKG05 INX 


H 


*}ipriATC PACT TUr *PDi PUAPAPTITP 

i Ur im \ t rfibi flit LK LHHhRUth 


6231 


016244 


A / / 

066 


AAA 

000 




HVI 


M»0 


* iini I EllAPAkfTCT TUAT UC CMfi LITTU l PD * _ « A * PAID 

?NUW bURhRN I It IHhi m tnu (nil in IK f O rnlK 


6232 


016246 


A "3A 

170 






MOV 


AfB 


SEPA15 TUr PliDPCUT OHM 

tbhHD I lit. LUKKtN i bun 


6233 


016247 


ACT 

057 






CMA 




?LunrLlntNI 


6234 


A<i /**CA 

016250 


A*7 k 

074 






INR 


A 


*liAfc*£" TllftC* PHUOi TMCkiT 


6235 


A* / IC-i 

016251 


346 


A. "7"? 

07/ 




ANI 


"077 


rmtt UNLI biX i?l 1 b LUUNI 


6236 
623/ 










5 NOW MUST DECIDE IF YOU 


Httv iu Hbuli""iz,L int LntUsbun 


623o 


M Z057 

U162j3 


7"7Z 

3/6 


U/J 




rpT 

ur 4 


"075 


y /D?/6f // HUN t uti Hbtli"*tU 


623y 


016255 


7 / n 

362 


OZO 

262 


A7 A 

034 


IP 


TSKG01 


*CH HIMC» TC AUY AIT TUACC TUCCr 

?bu JUnr lr RWT Ur inubt inKtL 


6240 


A1 Z1ZA 

016260 


ILL 

366 


i AA 
100 




Uf\I 


"0100 


iUAn Tfl ACrTT-T7C. Cfl fifi TT LITTU A 1 AA 
f URL* iu Hbwii LLti OU I'll i. i wlm H iUU 


L^Ai 

6241 


A1 ZOZO 

016262 


062 


A* O 

012 


042 


TQk'RIH * QTs 


ENVCHK 


•QAiic tm Tur APPpnPDi&Tr pi Apr tw Tur icccp 
fbflVt irt int HrrrvUrMHit rLHUt iW Int &Urrtf\ 






























CLRB 


APTANS i CLEAR THE ANSWER 




A1 49 A7 








KTHM' 


SYNC 


52 SYNCS START EMERY MESSAGE 


\ Li 


A1A*U7 
viO^O/ 


71tr 
ulJ 


117 
Hi 


AAA 


wnLL 


KCHR 


»G0 PRINT THE CHARACTER 


11/ 




AA1 






BYTF 
♦ bi It 


SYNC 






A1ATTC 

ViUi./ «3 








KCHAR 


SYNC 




\ i/ 


A1 k^ll 


uJLJ 


117 
ill 


AAA 


CALL 


KCHR 


?G0 PRINT THE CHARACTER 


\i/ 


A1 a'Ha 


AA1 
vvi 






♦BYTE 


SYNC 




6246 
















624/ 


016277 


021 


A-i 4 

Oil 


042 


LXI 


DjENVHNO 5N0W SEND THE REST 


6248 


016302 


71 C 

315 


i AA 

144 


AAA 

004 


CALL 


KLINE1 




624V 


Ai Z7AC 

01630j 


A"? 1 ") 

0/2 


A1 7 
013 


042 


LDA 


ENVBUF 


5 GRAB FIRST CHAR OF ENVELOPE JUST SENT 


62j0 


016310 


77Z 

3/6 


A77 

0/7 




CPI 


QUES 


IIS IT QUESTION MARK?? 


6251 


016312 


312 


165 


032 


JZ 


MMERR1 


5 IF IT UASt ABORT ENVELOPE STUFF? RESET APT 


6252 
















6253 


016315 


376 


045 




CPI 


PERCNT 


} IS IT A PER CENT SIGN?? 


6254 


016317 


312 


165 


032 


JZ 


MMERR1 


»IF IT UASt ABORT ENVELOPE STUFF » RESET APT 


6255 
















6256 


016322 


072 


261 


040 


APT ♦ WT i LDA 


APTANS 


»N0U WAIT FOR THE APT SYS TO ANSWER (ACK OR NACK) 


6257 


016325 


247 






ANA 


A 


J IF ZERO* GOT NO ANSWER YET 


6258 


016326 


312 


322 


034 


JZ 


APLWT 


;so WAIT 
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6260 










{FINALLY 60T AN AHSUER 




6261 


016341 


3/6 


116 




CP I 


/ 11 

n 


?WHD IT ft NhCKTT 


6262 


016333 


312 


265 


034 


JZ 


TSK2TSK 


iIF YESi SEND IT OUT AGAIN 


6263 


016336 








BECEX1! 






6264 


016336 








DECEX2J 






6265 


016336 


257 






XRA 


A 


J USE FAST WAY TO CLEAR A RAM LOCATION 


6266 


016337 


062 


252 


040 


STA 


MAILF6 


iSAY END OF THIS ENVELOPE 


6267 


016342 


041 


013 


042 


LXI 


HjENVBUF 


• 5 POINT TO THE BUFFER 


6268 


016345 


042 


352 


040 


SHLD 


ENVPNT 


JSAVE THE POINTER TO THE BUFFER 


6269 


016350 


311 






RET 




?THEN OUT 
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Oi.f 1 










{SUBROUTINE TO MOVE A STRING OF CHARACTERS INTO THE TTY INPUT BUFFER* 


A070 










{KEEPING TRACK OF THE NUMBER OF COMMAS AND OTHER IMPORTANT FEATURES OF 


£077 










(STRING. MUST PASS THE SOURCE OF THE CHARACTERS IN REG B»C> SUBROUTINE 


£07 A 










(BOMB REGISTERS B»E AND H*L 


Z075 


0163j1 


AA1 

001 


0*?7 

2j3 


AJH 

Q41 


HM.ALL: LXI BiE.BEG+2 J POINT TO THE CHARACTER BUFFER TO BE EXECUTED 


6276 


i\i Lit: h 

0163j4 


71 C 

315 


1 £A 
160 


A* A 

010 


CALL BFRST 


5 RESET CMD CHAIN POINTERS 


i.077 
tiff 


A1 I7C7 


AH 
021 


114 


AjH 

041 


MV.INP: LXI D»BUFB6 »DE» WILL POINT TO THE INPUT BUFFER 


/mo 


Ai £7£'~* 

016o6«: 


A41 

041 


OA il 

204 


AAA 

040 


LXI HfEOL 


i AND HL WILL POINT TO THE COMMA/EOL COUNTER 


£070 
62/7 


A1 Z7I*C 

01636D 


066 


AAA 
000 




MVI H*0 


? MAKE SURE COUNT BEGINS AT 


£OGA 














it 001 

620l 


A1 £747 

01636/ 


A1 
012 






MV.IN1J LDAX B 


56ET FIRST CHARACTER FROM WHEREVER IT IS 


4000 


Ai A77A 


AOO 






STAX D 


? AND PUT IT INTO THE BUFFER 


O&OvJ 


vj.00/ I 


AA"? 






INX B 


»UP POINTER 


A004 


A1 4770 


A07 






INX D 


} AND THIS ONE TOO 


QC.Q-J 














400Z 










J NOW CHECK FOR COMMA Of 


( EOL 


4007 
0£0/ 


A1 4777 


774 


A5A 




CPI COMMA 


S IS IT A COMMA?? 


AOQO 
O&OO 


A 1477^ 


7.1 A 


AA5 


A7«% 


CZ HV.CNT 


»IF YES* INCREMENT THE COUNT 


AOQQ 














6290 










(FALL THRU IF WAS A COMMA BEFORE. EOLCH WILL NOT MATCH 


6291 


016400 


376 


377 




CPI EOLCH 


f IS IT AN END OF LINE? 


6292 


016402 


302 


367 


034 


JNZ MV.IN1 


5 IF NOT* THERE IS MORE TO DO 


6293 














6294 










MERE IF WAS AN EOL.. NOT ONLY DO WE BUMP THE COUNT* UE ALSO GET OUT 


6295 


016405 


064 






MV.CNT! INR M 


*UP COUNT 


6296 


016406 


311 






RET 


? AND OUT 
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6293 
6299 
6300 
6301 

6302 016407 

6303 016407 

6304 016411 
6305 

6306 016414 

6307 016417 
6308 

6309 
6310 
6311 
6312 

6313 016422 

6314 016422 

6315 016424 
6316 

6317 016425 

6318 016430 



376 001 

302 250 035 

041 022 035 

303 126 034 



376 001 
310 

041 033 035 

042 346 040 



.SBTTL MODE 4 FOR DECIDING TO COLLECT AN ENVELOPE OR CTY OUT 
J MODE 4 HANDLER. HATCHES FOR THE FIRST SYNC CHAR> THEN GOES INTO 
iA FINITE STATE MACHINE MODE WHERE IT COLLECTS AN ENVELOPE 
rVHEN YOU ENTER HERE, REG B HAS A COPY OF THE CHARACTER JUST TYPED 
MODE45 

H4.05 CPI SYNC JLOOK FOR A SYNC CHARACTER 

JNZ MMOUT fIF NOT. SIMPLE PRINT OF CHARACTER ON CTY 

LXI H»H4,1 JSHIFT ENVELOPER TO NEXT INPUT STATE 
JMP SETHIS 5 AND SET INTERRUPT HANDLER TO COME HERE WHEN 
I DONE HITH INTERRUPT 

? STATE 2 OF ENVELOPE EATER,. THIS CODE HILL DISCARD ANY ADDITIONAL SYNCS 
» STORE THE MESSAGE NUMBER WHEN IT FINALLY GETS HERE (i FLIC TO STATE 3) 
J OR COLLECT THE FIRST CHARACTER OF A CMD SEQUENCER FLIC TO STATE 3) 
M4.1! 

CPI SYNC fIS THIS AN ADDITIONAL SYNC CHAR 
RZ J IF YESr IGNORE AND PROCEED 

J FALL THRU IF NOT A SYNC 

LXI Hi COLLECT 5N0y GO TO NEXT STATE OF THE ENVELOPE COLLECTOR 
SHLD MODDIS JSET UP FOR INTERRUPT HANDLER TO FIND 
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6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
632? 

6330 016433 

6331 016435 
6332 

6333 016440 

6334 016442 
6335 

6336 016445 

6337 016447 
6338 

6339 016452 

6340 016454 
6341 

6342 
6343 
6344 
6345 
6346 

6347 016457 

6348 016462 
634? 016463 
6350 016464 
6351 

6352 016467 

6353 016472 

6354 016473 

6355 016474 

6356 016476 

6357 016501 



376 044 

312 236 035 

376 033 

312 236 035 

376 015 

312 102 035 

376 001 

312 050 034 



052 247 041 

043 

167 

042 247 041 

041 301 040 

064 

176 

376 134 
322 220 035 
311 



.SBTTL ENVELOPE COLLECTOR 

{THIS IS WHERE YOU COME ON CHARACTERS THAT ARE PART OF AN ENVELOPE. 
5THIS CODE CHECKS FOR 2 KINDS OF TERMINATORS 

51) END OF ENVELOPE 

52) END OF CONTROL SEQUENCE 

fOR ELSE MERELY STUFFS THE CHARACTER INTO THE ENVELOPE BUFFER* 
{WHEN AN ENTIRE MESSAGE HAS BEEN RECEIVED? THEN WE WILL CALCULATE THE 
{CHECKSUMS OR WHATEVER* HAKE WITH THE ACKS, NACKS» AND EXECUTE WHATEVER 
5 THE STUFF MAY BE 

JWHEN YOU ENTER HERE* REG B HAS A COPY OF THE CHARACTER JUST TYPED 



COLLECT, CPI 
JZ 

CPI 
JZ 

CPI 
JZ 

CPI 
JZ 



DQLLAH JTQPS20 CALLS A SPADE A 'DOLLAR' 

ACTION IIF '$'» TREAT LIKE AN ALTMODE 

ALT J IF ALTMODE » THEN END OF CONTROL SEQUENCE 

ACTION (AND JUMP IF IT WAS ALTMODE. EXECUTE CONTROL CHAR 

CRCHR J IF CARRIAGE RETURN. THEN END OF ENVELOPE 

EXECUT 5G0 EXECUTE THE ENVELOPE IF <CR> 

SYNC 5 ALSO LOOK FOR 'SYNCS WHICH MEANS 'RESYNC* 
SETM4 



{IF YES» THEN MUST RE-SYNC 
>WE MUST BE AWARE OF * RE-SYNCING '» IN CASE THE 'ALT' OR 
IAS IT CAME DOWN THE LINE? AND WAS MISSED BY THE 8080 
{RE-SYNCING REQUIRES STARTING AT THE BEGINNING OF M0DE4 



'CR' WAS GARBLED 



j FALL THRU IF MUST SIMPLY SHOVE THE CHARACTER INTO THE BUFFER 

COL.LP, LHLD E.BUF J GET POINTER TO THE LAST CHARACTER IN THE BUFFER 

INX H 5 BUMP POINTER TO FIRST FREE 

MOV M»A {AND STACK THE CHARACTER IN THE BUFFER 

SHLD E.BUF {REPLACE THE POINTER 

LXI HjE.CNT {GET CURRENT CHARACTER COUNT 

INR M {UPDATE 

MOV A»M {NOW COPY COUNT TO ACCUM FOR TESTING 

CPI "0134 {TOO MUCH FOR AN ENVELOPE?? 

JNC HACK. EN 5 IF TOO MANYj NACK IT.. MAYBE HE WILL START OVER 

RET {ELSE OUT 
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L.1KQ 
Q0J7 










5 HERE UHEN AN ENVELOPE IS COMPLETE,,, UE MUST COMPUTE THE CHECKSUM 


L1LIS 










j AND COMPARE AGAINST THE CHECK CHARACTER SENT OVER? THEN ACTUALLY EXECUTE 


Lit i 

6361 










5THE CONTENTS OF THE ENVELOPE 


6362 


016502 


072 


7A4 

301 


040 


EXECUT, LDA 


E.CNT 


J GET CHAR COUNT SO HE CAN TELL UHEN WE FINISH 


tin 
6363 


016DUD 


11/ 






unit 
nUV 


CjA 


5 PUT IT IN "C 


LILh 

6364 
















LILtL 

636D 


A1 iC"A/ 

016j06 


041 


2j2 


041 


1 VT 

LXJ. 


H»E,BEG+1 i POINT TO THE CHECKSUM IN THE ENVELOPE BUFFER 


L1LL 

6366 


A4 fC4 4 

016j11 


176 






flUv 


AjM 


J GET CHECKSUM CHARACTER INTO THE ACCUM 


L1L1 

636/ 


Fi-i LEI'S 

U16j12 


AA7 

043 






INX 


H 


} UPDATE PAST THE CHECKSUM JUST COLLECTED 


L1LQ 

636o 


016j13 


A1 C 

01j 






OCR 


C 


? AND DOWN THE CHAR COUNT FOR THE THINGS UE JUST 


L.1L.Q 
O307 


viOJi4 


Al^ 






DCR 


C 


i PICKED OUT OF THE LIST 


63 /U 


ai s 


A1 






OCR 


C 


m WANT LOOP TO END AT -1, INSTEAD OF 


LIU 

63/1 
















£7*70 
63/2 


U16j16 


OA! 

2U6 






env.lp: Aim 


M 


r ADD CHARACTERS TO CHECKSUM 


6373 


016517 


043 






INX 


H 


iNEXT CHARACTER 


6374 


016520 


015 






DCR 


C 


»BUT FIRST SEE IF DONE YET 


6375 


016521 


362 


116 


035 


JP 


ENV,LP 


5BACK IF NOT 


6376 
















6377 










WHEN DONE? CHECK THAT CHECKSUM HAS WORKED OUT TO BE ZERO 


6378 


016524 


346 


077 




ANI 


"077 


fONLY SIX BITS COUNT 


6379 


016526 


302 


220 


035 


JNZ 


NACK.EN JIF NOT ,EQ, 0? THEN CHECKSUM FAILED AND 'NACK* 
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1701 

6ool 










5 FALL THRU TO HERE IF OK SO FAR 


6382 


016531 


066 


"TT7 

377 




MVI 


MfEOLCH 5 MARK THE END OF THE ENVELOPE WITH EOL MARKER 


6383 














6384 










fNOW MUST CHECK THE MESSAGE NUMBER FOR OK-NESS 


6385 


Ai /C77 

016533 


A A 4 

041 


714 

361 


AAA 

040 


t VT 

LXI 


HjLSTnbu ?uET FuINTLK TO nESSAuE NUnotK 


tint 

6086 


A4 / C"7 / 

016536 


116 






una 


Lffl ibRvc. 1 i IN I ruK A LillLt wnlLt 


£70"? 

6387 


A 4 /C1*J 

Olojo/ 


A7'J 

0/2 


2al 


041 


i f*iA 


t*btb fbhftb LuhhtNl ntboftbt NUflDth 


6000 














0007 


VJLOvWi 


Oil 






wnr 


P SA&P TMPY TUP CAMP?? 


AJQfi 

OO/V 


UIOJ*IO 


710 


i-Vi. 




17 


APk' cw i TP YPQ. Tift GTMPJ c APfc- Akin Tnwn&P HPQQAftC 
HLrWC.fi fir ICu? L«U OinrLu Him rmU lunimC. nLvJOHUu 


0071 














£7Q0 










»IF DIFFf TyAS 


A GOOD MESSAGE, SAVE NUMBER AND EXECUTE 


/7Q7 
G070 


A1 AR£a 


1 A7 
10/ 






MOV 


MrA (SAVE MESSAGE NUMBER AS THE LAST 


JLIQA 














Z70C 
007J 


U16D4/ 


71 C 

OlD 


Ml 


034 


CALL 


HV.ALL 5ANB MOVE THE STUFF TO A BUFFER FOR EXECUTION 


6396 


016552 


076 


041 




HVI 


Ar"041 ? EVERY COMMAND ENVELOPE EXECUTED RESETS THE ENV NUMBER 


6397 


016554 


062 


Oil 


042 


STA 


ENVHNO i SO RESET THE ENVELOPE MESSAGE NUMBER TO 41 


6398 


016557 


315 


050 


034 


CALL 


SETM4 ?HODE 4 TO GRAB INTERRUPTS CORRECTLY WHILE RUNNING 


6399 


016562 


315 


336 


034 


CALL 


DECEX1 J BEFORE EXECUTING? CLEAR ALL OLD MESSAGES 


6400 


016565 


041 


176 


035 


LXI 


HiOKDN {TELL NORMAL ENDS TO RETURN HERE FOR FURTHER ORDERS 


6401 


016570 


042 


350 


040 


SHLB 


NOREND IPASS INFO IN THE DEDICATED RAM POSITION 


6402 


016573 


303 


222 


002 


JMP 


DCODE r AND BEGIN EXECUTION OF THE STRING READ IN 
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6404 


016576 


"7 "5"? 

373 






OKDNt EI 




/ A AC 

6405 


aa i m 

016577 


T4 C 

315 


205 


AT k 

034 


CALL 


BECNET 


6406 














6407 










SNOW OK TO ACKNOWLEDGE 


6408 


016602 


315 


050 


034 


AfH-* nit fAI i 

ACR*EN; CALL 


SETn4 


6409 

/ A 4 A 

6410 


A 4 / / AC 

016605 








ACK» KLINE 


U AfMf" 

n*AC& 


/ 4 \ 
CI) 


A i / t AC 

016605 


"74 C 

315 


4 *T"5 

137 


AA k 

004 


CALL 


KLINE 


f A \ 
CI) 


A4 //4ft 

016610 


14 *7 

213 


035 






M APk" 

rufiLK 


I A A A 

6411 


A A I i A 1 

016612 


74 4 
311 






DCT 




/ A4 <*i 

6412 


A4 / / 4 "7 

016613 


AA4 

001 








bYNl 


6413 


A4 / / 4 A 

016614 


AA4 

001 






♦ bl It 


bYNl 


£ Ai A 

6414 


A4 / / 4 C 

Q1661D 


1 A1 

101 






DVTC 

♦ r«Ttt 


'A 
ft 


LAi K 
641ii 


U16616 


A77 






&VTT 

♦ dT It 


Ai T 

hLi 


LAi I 

6416 


AI ££17 

01661/ 


AAA 






♦i?T it 


A 
V 


LAi 7 

641/ 


A4 / /HA 

016620 


7* C, 

3lD 


ACA 
UDO 


AT* 

034 


KIAPk' TW* Pal ! 




I Aid 

6418 


A4 / / *yr 

016623 








yAPk'* k'l IMF 




(1) 


016623 


74. C 

31j 


i 77 
137 


AAA 

004 


LRLL 


k'i TMC 
fcLINt 


/ 1 \ 


A1 ££0£_ 
016626 


071 

2ol 


A75 








0717 


A1 ££7A 


71 1 
all 






DCT 

Kti 




1 A OA 

6420 














L A^i 

6421 


A4 / /"7 4 

016631 


AA4 
001 






M* HACK 5 *BYTE 


SYNC 


6422 


A1 ££70 

016632 


AA1 
001 






♦ BYTE 


SYNC 


l AIT 

6423 


A4 / ITS 

016633 


4 4/ 

116 






♦ BYTE 


'N 


6424 


016634 


033 






♦BYTE 


ALT 


6425 


016635 


000 






♦BYTE 





6426 














6427 


016636 


052 


247 


041 


ACTION* LHLB 


E.BUF 


6428 


016641 


176 






H0U 


AiH 


6429 


016642 


062 


261 


040 


STA 


APTANS 


6430 


016645 


303 


050 


034 


JMP 


SETM4 



5 MUST ALLOW INTERRUPTS HERE 

5IF YES, HAIL ENVELOPE BEFORE ACK'ING 

THE COMMAND 
J SEND 'ACK" DOWN THE KLINIK LINE 



JPRINT LINE OF CHARS 
5BUFF TO PRINT 
SD0NE WITH THIS 
JSYNC 
5 SYNC 

i ACKNOWLEDGE CHAR 

fALTMODE 

SEND OF STRING 

fSEND 'NACK' DOWN THE KLINIK LINE 

JPRINT LINE OF CHARS 
5 BUFF TO PRINT 
f BACK TO CALLER 

5SYNC 
?SYNC 

? NEGATIVE ACKNOWLEDGE CHAR 

JALTMQDE 

SEND OF STRING 

5 GET THE TYPE OF CONTROL THIS WAStACK OR NACK) 

fPUT IT INTO ACCUM 

S SET IT INTO THE ANSWER WORD 

5 AND NOW RESET INTERRUPT HANDLER AND OUT 
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L AT) 










J THIS IS THE CODE DO DO STRAIGHT OUTPUT FR0H THE KLINIK LINE TO THE CTY 


6433 










f AND INCLUDE ft SCHEHE FOR BUFFERING THE OUTPUT SO THAT A 9600 BAUD 


/ At A 

6434 










? KLINIK LINE HILL OUTPUT OK TO A 300 BAUD CTY * 


6435 










IIF INTERRUPTED UHILE PRINTING A CHARACTER? THE CHARACTERS UAITING TO BE 


6436 










J PRINTED ARE STACKED AT THE *SYS0UT i POINTER, CHARACTERS THAT ARE REMOVED FROM 


6437 










5 THE yAITING BUFFER ARE REMOVED MIA THE POINTER "SYSIN 1 


6438 


016650 


*"* A"? 

247 






UUftHTt AHA 

HHOUTJ ANA 


A fSEE IF THIS IS A NULL CHARAC f ER 


/ A "7 ft 

6439 


016651 


*7i A 

310 






r,-r 


» IF YES> DONT DO NOTHIN 


LA Aft 

6440 


Ai LIK 1 ^ 


AC1 

052 


i 07 

123 


AAO 

042 


LHLL! 


ovcmiT icrr tc ur adc dhcv ddtmttu£ 
oTbUUi tott It Ht fine Bust rKlrtllNb 




Ai iicc 


17/1 

1/4 






Mnu 
nuv 


A.U SRCT AU TUTiTrATflD 
H»n rut) fln INLULhIUK 


L A A'i 

6442 


Ai llKi 

016656 


n a*? 
24/ 






AMA 


A JCCT Dr CI ARC 


LAA1 

6443 


0166j7 


312 


T1A 

320 


A7C 

035 


it 
JL 


MflTDIiCY TC UfiT BIICV 

nulcUsT juU lr mil BUoT 


IAAA 
























irri 1 Tn UCDC 

frtLL iu ntht 


lr dUoi r turf UNO 


LA AL 

6446 


016662 


7C7 






XlHb 


fSAvE THE UlKKtNT SibUUl VALUE i In ui£) 


L&A1 


A1 liil 

01666,5 


AC,*") 

052 


1*51 

121 


032 


LHLD 


biblN » NOW SEE lr THIS lb FlhST linE IN 


LA AO 


016666 


1/3 






NOV 


AiH J6ET THE INDICATOR 


i.AAQ 


A 1 LLLl 


£3/ 






ANA 


A f SET FLAGS 


0*1 JU 


Uioo/U 




Ovl 




JNZ 


STCK.Y » JUMP IF ALREADY STACKING 


63 Jl 














64j2 


AI LL11 

0166/3 


AJH 

041 


1 oc 
125 


042 


LXI 


H»SYSBUF JFIRST TIME INi SO SET INPUT FLAB 


Z ACT 

6453 


016676 


042 


i ^i 

121 


042 


SHLD 


SYSIN 5SET IT 


/ AC A 

6454 














Z ACC 

6455 


A4 Z"JA«f 

016701 


A A i 

041 


AC"? 

053 


77C 

335 


STCK.Y5 LXI 


Hi-SYSEND fNOW SEE IF BUFFER IS FULL 


6456 


A i I "i A A 

016/04 


031 






DAD 


D J ADD END TO THE CURRENT TO SEE IF BUFF FULL 


L AK7 

6457 


A4 /"7AC 

01670j 


4 "7 A 

174 






MOV 


A>H JSEE IF ZERO 


l ACQ 

64jo 


Ai £"7AZ 
016/06 


nzc 

26j 






ORA 


L f SEE IF ZERO 


/ iSCO 

t>45? 


Ai i"3A"3 

016707 


310 






RZ 


i IF .EQ, THROW AWAY STUFF.. BUFF IS FULL 


6460 














6461 










5 HERE IF NOT FULL. HUST STACK THIS CHARACTER 


6462 


016710 


353 






XCHG 


j CURRENT POINTER GOES BACK TO HL REG(PNT TO SYSOUT) 


6463 


016711 


160 






MOV 


MrB 5 CHAR INTO RAM SPACE 


6464 


016712 


043 






INX 


H 5 UP COUNT 


6465 


016713 


066 


000 




HVI 


M»0 » GUARANTEE A ZERO BYTE AT THE END OF BUFFER 


6466 


016715 


303 


004 


036 


JMP 


SETOUT fPUT THE POINTER BACK WHERE IT GOES 
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A4AP. 
0*100 










iHERE IF NOT PRINTING YET** PRINT FIRST CHARACTER AND PLAN ON SOHE HORE 


A4AQ 
0*107 


A1 A70A 


A41 
U41 


111 J 


A40 


HUtDUoi* LAI 


U.CYQftlifT *TI4TC TC TUC FTPCT TTMC TU 

rif bToDur t Wlo lb Int r 1Kb! lint IN 


AA7A 

64 /u 


A1 A707 
yi6/£0 


AAO 
U4Z 


1 17 


AAO 

v4£ 


CUi ft 


OYCnifT iCri TUC CI AP & TUF DfiTklTCD 


64/1 














A 470 
64/£ 


A1 A70A 
UlO/iO 


17A 
1/U 






nuv 


A.ii ri4&& fcArt 4 Tn AppHM on paw dot kit tt 

HJl? yutl LURK tfRlm IU HbLUn ou wHri rMrtl 11 


A477 

0*?/ 


A1 4707 


1 A7 
1U/ 






nunc ♦ * nuv 


of R ?wne.!\£. HvcK U UUnt r r-Uri f oRVL rlbyun I ft o !\to 


A474 

0*1/*! 


AI A77A 


77A 
0/0 


A10 




PPT 


LrUrm f iO IniO R LlnL rLti*:: 


A47S 


A1 A770 
viO/ 0*. 


7AO 


144 




IN7 


nruriMi fir nu? nuininu orLuinL 


A47A 














M77 


01 A71 c i 

ViO/ Ow 


079 

V/ £ 


OZA 

jLOV 


040 


LHA 


CNTLQ.ON JMUST «E ANSWER EVERY <LF> WITH A 'CNTRQL-9* 


A478 

0*1/ Q 


01 A740 


947 






ANA 


A 5IF FLAG .EQ.i THEN M, IF YES THEN WRITE IT 


A47Q 


A1 A741 
vi0/4i 


7A4 


107 
LcO 


AA4 
vv4 


CNZ 


KCHRO JYES» A LINE FEED? SEND THE SYSTEM A 'CONTROL-Q« 


A4fiA 
0*tuv 


A1 A744 
viO/ 44 


17A 
1/v 






HM.PNT5 MOV 


AiB iNO MATTER HOW U GOT HERE? CHAR GOES TO ACCUM 


A481 
0*101 


A1 A745 
V10/4J 


777, 
0/0 






EI 


5 INTERRUPTS ON NOW> BEGIN PRINTING 


AAOO 

640£ 


Ai L1AL 
U16/40 


71 5 


UJ6 


AAA 
UU4 


CALL 


PCHR1Z JPRINT A CHAR 


64oo 














IAQA 










J BACK TO HERE WHEN DONE PRINTING 


L A0& 

64oj 


U16/j1 


7*7 

ooo 






DI 


JDON'T BOTHER ME FOR A BIT 


A4P.A 
0400 


A1A7 c ;o 


A c .O 


101 
I ill 


A40 
v4i 


LHLB 


SYSIN 5GRAB POINTER OF THINGS WAITING TO BE PRINTED 


A4B7 


At A7 C «^ 
vIO/ JJ 


174 
i/*t 






MOV 


A»H jget flag 


A4RP, 
o*too 


ViO/ JO 


947 






ANA 


A f SET FLAGS 


A489 


A1A7*v? 
viO/ u/ 


7,19 
Oii. 


77A 
0/ 


VOJ 


JZ 


DONE.BUF 5 IF NOTHIN? ALL DONE 


A49A 

u*i7v 














A4Q1 

0*17 1 










MERE WHEN SOMETHING TO DO 


A499 


Ai A7A0 

viO/ Oil 


17A 

i/ 






MOV 


A»M ?GRAB A CHARACTER TO PRINT 


A497 
0470 


A1 A7A7 
vlO/00 


047 
<£4/ 






ANA 


A 5HUST FIRST CHECK FOR END OF BUFFER 


A4Q4 


A1 A7A4 
UiO/04 


710 
Ol£ 


77A 
0/0 


A75 


JZ 


DONE.BUF »IF DONE RESET THE POINTERS AND GET OUT 


04YJ 














L AOL 
6470 


AI I7Z7 
U16/6/ 


AA7 

U4o 






INX 


H f NEXT POINT 


A497 
047/ 


A1 A77A 
U10//U 


A40 
U4Z 


1 01 


AAO 
U4£ 


SHLD 


SYSIN fSET INTO RAM 


Z AOO 

64¥o 


AI Z777 
U16//0 


7A7 


7*) "7 

Oil 


A7C 

Qoo 


JMP 


MORE. ?D0 MORE 


649? 














6500 










1 HERE ON DONE ALL.. FALL INTO Z-BUFF CODE 


6501 


016776 








dqne.buf: 




6502 


016776 


041 


000 


000 


Z.TBUF5 LXI 


HiO J WE NEED TO CLEAR SOME BUFFERS 


6503 


017001 


042 


121 


042 


SHLD 


SYSIN i CLEAR POINTER 


6504 


017004 


042 


123 


042 


SET0UT5 SHLD 


SYSOUT i AND CLEAR POINTER 


6505 


017007 


311 






RET 
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OJU/ 










♦SBTTL mt MORE ERROR ESCAPES **** 


qjUo 


A1 7A1 A 








NOftCKJ 


PLINE 




5 8 PP?MT Ufl MTA £.Pk* a 


(i) 


017010 


"7 "7 "J 

337 








RST 


i 
6 


* DDTilT I TWr nC PUADO 

?rhlNs llNfc LJr InHkh 


(i) 


017011 


TIA 

220 


A"*"! 

0o7 






♦ ABBR 


XiHA 

huh 


*D1ICT T/1 DD TUT 

f bur r iu rhINi 


6509 


















6510 


A 4 "5A4 "7 

017013 


A h 4 

041 


AA4 

001 


AAA 

000 




LXI 


ml 


JthK uODt lb 1 


6511 


017016 


042 


154 


040 


errrtn: shld 


ERRCD 


jSET ERROR CQDt 


6512 


017021 










tNDCnu 






(1) 


017021 


311 








Ktl 






ISM 7 


















6jH 


A1 7A*)0 


lot 






PtUrmfc* 


AKH 


H 


SPi P APPilM 




Ai 7A17 


707 


01 A 








DUOw f L 


tttictk T/n ypT 1ft /ft 


AKi A 












rLlNt 




? : rtu DUD fULOr 


/ 1 } 


A1 7A1 e k 


777 
00/ 








RST 


7 



iPPTNT i TUT f)C fUADC 


\ 1 / 


A17A9A 

Ul/V&O 


VIA 


VO/ 






. ADDR 


NfiP 


iftllFF Tfl PRINT 

r *?ur r iu i fun s 


0%Jl/ 


















DJ1Q 


A17A7A 


AA1 


AAO 
W£ 


AAA 




LXI 


n?«i 




/cri o 


AI 7A77 


7A7 
OVO 


A1 1 


A7Z 

Uoq 




JMP 


FPPPTh! 


inn qft rppnp pnnc 


OJ^U 


















6521 


A< ">A1 / 

01/036 


<!57 






NIX0HJ 


XRA 


A 


JCLR ACCUM 


6522 


017037 


323 


210 






OUT 


BUSCTL 


1/0 URT 210/0 


6523 


017041 










PLINE 


NXHMSG 


V PRINT ?NXH" 


(1) 


017041 


337 








RST 


3 


rPRINT LINE OF CHARS 


(1) 


017042 


226 


037 






.ADDR 


NXMMS6 


f BUFF TO PRINT 


6524 


017044 


041 


003 


000 




LXI 


H»3 


» ERROR CODE 3 


6525 


















6526 


017047 


303 


016 


036 




JMP 


ERRRTN 


j SET ERROR CODE 



ttm CLR OUT NIX0M BIT AFTER THE REPORT 
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6528 








♦SBTTL 


****DISK TRANSFER CHANNEL COMMAND LIST**** 


6529 














6530 


017052 






DSKSEQI 






6531 














6532 








HINOR N0TE5 40000 HEIGHT BIT IS •VALID 1 


6533 










5 100000 HEIGHT BIT IS '36-BIT XFR* 


6534 














6535 


0170j2 








UBA. 763 » 001 


» ADDRESS OF UBA IS FIRST ELEMENT 


i i \ 

11) 


AI 7AET.1 
OI/OJZ 


AA1 
001 






.BYTE 001 1 377 


Kit 


A17/VC7 
vl/v3Cf 








.BYTE Q.l 




11) 


UI/UDt 


A77 
U/O 






.BYTE Q.2 






A 4 *7ACC 

1)1/1)55 








DI. 140»001 


> VALID S '36 BIT XFR' FOR PAGE 1 


i i \ 

11) 


A1 7A£C 
Ul/UJJ 


AA1 
00 1 






.BYTE 001 1 377 


f 1 \ 


A17A5Z 

01/Ojo 


7AA 
500 






.BYTE Q.l 




f i \ 


A1 7 At?"? 

01/05/ 


AAA 
000 






.BYTE Q.2 




6537 


A* "JA / A 

01/060 








LI, D776fP.10 


» GET DRIVE STATUS S CONTROL REG> 


(1) 


AI 7A£A 

1)1 /06Q 


77 A 
3/4 






.BYTE Q.l 




/ 1 \ 
(1) 


AI "7AZ4. 

0171)61 


A1 A 

010 






.BYTE P. 10 S 


377 


i 1 \ 

11) 


Ai 7AZ.1 


AI 7 
015 






.BYTE Q.2 






A17AZ7 








DI. INDIRECT UNITNM J NOW SET THE UNIT NUMBER 


11) 


Ai 7A£7 


1 70 
l0£ 


AAA 




.ADDR UNITNM 




i 4 \ 


A4 *5A /r 

017065 


1AA 

200 






.BYTE "0200 




653? 


A4 -JA / / 

017066 








EI. B776.P.12 


» ADDRESS OF DRIVE STATUS 


U) 


01/066 


77A 
3/4 






.BYTE Q.l 




i i \ 
11) 


A 4 lAH 

01/06/ 


A1 ^ 

012 






.BYTE P. 12 I 


377 


/ 1 \ 


A4 7A7A 

01/0/0 


A07 

023 






.BYTE Q.2 




/ C AA 

6540 


A4 7A74 

017071 








THAIT 400 


J CHECK THAT THE DRIVE IS PRESENT 


/ 4 \ 


A4 "7A"?4 

017071 


AAA 

000 


AA1 
001 




.ADDR 400 




(I) 


A 4 "JA"5"7 

017073 


A/A 

060 






.BYTE <14*4> 




6vl41 


A 4 -fA^Ji 
Oi/0/4 








WAIT 200 


» CHECK S WAIT FOR READY 


/ 1 \ 

11) 


A4 TA-J A 
01/0/4 


■^AA 

200 


AAA 
000 




.ADDR 200 




/ <! \ 
11) 


A4 "7A"?Z 

017076 


ATA 

030 






.BYTE <6*4> 




/rift 

6542 


A 4 "J AT"? 

017077 








LI, D776»P.10 


f ADDR OF DRIVE STATUS REG 


(1) 


017077 


374 






.BYTE Q.l 




(1) 


ft 4 "n AA 

017100 


010 






♦BYTE P.10 1 


377 


(1) 


017101 


013 






.BYTE Q.2 




/CAT 

6543 


A 4 "J 4 AI 

017102 








DI. 0j40 


5 ISSUE CONTROLLER CLR 


(1) 


A 4 "J 4 A*i 

017102 


AAA 

040 






.BYTE 40 % 377 


11) 


A4 -J4 ATf 

01/103 


AAA 
000 






♦BYTE Q.l 




/ 1 \ 
11) 


A4 74 A A 
01/104 


AAA 
000 






.BYTE Q.2 




LKA A 


A1 71 A5 
01/IOj 








DI. INDIRECT UNITNM JSET TO UNIT # 


11) 


AI 71 A*£ 
01/1UD 


1 7*} 


AAA 
040 




.ADDR UNITNM 




11/ 


AI 71 A7 
U1/1U/ 


OAA 






.BYTE "0200 






A171 1A 
Ui/llU 








LI. D776»P.OO 


» ADDR OF CONTROLLER STATUS REG 


i i \ 
11) 


AI 71 1 A 
01/110 


77 Jl 

0/4 






.BYTE Q.l 




11) 


A4 "?4 4 4 
01/111 


AAA 

000 






.BYTE P.00 1 377 


(1) 


017112 


013 






.BYTE Q.2 




6546 


017113 








DI. 0*11 


(ISSUE DRIVE CLEAR 


(i) 


017113 


Oil 






.BYTE 11 I 377 


(1) 


017114 


000 






.BYTE Q.l 




(1) 


017115 


000 






.BYTE Q.2 




6547 


017116 








DI, 0»21 


5 SET ' READ-IN-PRESET ' 


(1) 


017116 


021 






.BYTE 21 4 377 


11) 


017117 


000 






.BYTE Q.l 
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/ 4 \ 


A4 71 1A 

017120 


AAA 

000 




dvtc n *> 
♦ Bill U»2 


6548 


017121 






1 t ri77/ ft 4 1 iPrr TH TUC TiDTHC CTATilC? DCf'TCTCD 

LI* D776?P*12 fut! 10 THE BRIvE binTUS htbiSTth 


(1) 


017121 


374 




♦BYTE Q*l 


(i) 


017122 


012 




T.WTP V* 4 *\ it "7 "3*3 

♦BYTE P42 S 377 


(1) 


A 4 "14 17 

017123 


A4 7 

013 




dvtc n i 

♦ BYIE w+2 


/ £7 AI 

6549 


A4 74 1 A 

017124 






LI ATT 1AA *LIATT THD TT Tfi Dr DCAflV 

whIT 200 ywHii r UK 11 ill dl html 


(1) 


A 4 7 4 1 A 

017124 


200 


AAA 

000 


addd iaa 
♦ ADBR 200 


(i) 


017126 


030 




♦BYTE <6I4;- 


6550 


A4 74 17 

017127 






TilATT 4 AA * kiftif PLI tTPk* TUAT • DOC OCT1 UAC OCT Hfti HMCT 

TwAIT 100 fHOy IHEIK THAI rhE-bt! HRb btl vULUnt 


/ 4 \ 
(1) 


A4 71 1 7 

017127 


4 AA 

100 


AAA 

000 


AftDD 4 AA 
♦ ALUm 100 


/ 4 \ 

\u 


A4 "74 "H 

017131 


A/ A 

060 




DVTC Si Alt A''- 

♦ BY IE \14I4/ 


i ETC 4 

6551 


A4 "J4 71 

017132 






1 T D77Z D Ai. * ADTiD TDArk / /Crf*TftE» DCP 

LI^ B776?r%06 jhBDK IkACfS/bEllUK hEb 


/ 4 \ 
(1) 


A4 74 71 

017132 


77 A 

374 




DVTC ft 4 

♦BYTE u«l 


/ 4 \ 
(1) 


A4 74 77 

017133 


AAZ. 

006 




DVTC D AZ 9 777 

♦BliE r»vo I 3// 


/ 4 \ 
(1) 


A4 74 7 A 

017134 


A1 7 

013 




DVTC ft 

♦ BYIE lU2 


6552 


A4 74 7C 

017135 






BI+INBlKEli BLKNUn fhnrlY rUK NUw 


/ 1 \ 
(1) 


A4 74 7C 
01/13D 


1 AC" 

10j 


AAA 
V7V 


♦BBBK BL^NUn 


(1) 


A4 74 77 

01/13/ 


OAA 

200 




DVTr "IIOAA 

♦BTIE UiUU 


6dD3 


A1 71 A(\ 






1 T Till A. & TA iAFifiP flfT TYi T KiHrp DCR 




UI/X7U 


Ilk 
i3/7 






i 1 \ 


A1 71 Ai 


f\1h 
V07 




RVTC P 7^ t 777 


(1) 


A4 71 An 

017142 


A1 7 

013 




dvtt n r i 


zee a 

65j4 


A4 74 A 7 

017143 






DT TkfDTDCrT Dl k'ADD iCMDTV CflD fclflU 

UUlNBlKLLi BLl\HUK ftflrlT rUK NUw 


/ 4 \ 
(1) 


A4 74 hi 

017143 


112 


AAA 
040 


ADTiD Dl k'ADD 

♦hBUK BLKmBK 


/ i \ 
CD 


A4 74 AC 

01714j 


1AA 

200 




DVTC "fWSA 

♦ BY IE U200 


6555 


A4 74 A I 

017146 






ivr*ri* i t r«77/ r« ai * atit« nr* imrirt fimiT npr* 

QXFRJ Hi B776iP»02 ?rBB OF U0RB COUNT RE6 


(1) 


017146 


374 




♦BYTE Q+l 


(1) 


017147 


002 




ftV/Tr* Tt Art * "J "37 

♦BYTE F *02 1 377 


(1) 


017150 


013 




♦BYTE Q*2 


6556 


017151 






TiT 4 7/ AAA *ST41 1 !iriT«<^ Tf* 4 AI A 4 fV FiTT ftVTf"f*/A TtAPr'X 

BL 176 ? 000 f 512 WORDS IS 1024 18-BIT BfTESCA PAGE) 


(1) 


017151 


000 




rt'-JTf AAA 4 777 

♦BYTE 000 1 377 


(i) 


017152 


"77 A 

374 




Tt VT r 14 

♦BYTE «♦! 


/ 4 \ 
(1) 


A4 74 C7 

017153 


AAA 

000 




DVTC n 1 

♦BYTE 8^2 


655/ 


A4 74 C A 

017154 






1 T D77Z D AA *ADDD ftC IlklTt'ilC* ADTiDCOC DCfl 

LI^ B//6?K04 fftUBK Ur UNibUb HBUKtbb Ktb 


(1) 


A4 74 C A 

017154 


77 A 

374 




liVTr n 4 

♦BYTE 


/ 4 \ 
(1) 


A4 74 CC 

017155 


AAA 

004 




DVTC D Ai O 777 

♦ BYTE FW4 & ^7/ 


/ 4 \ 
(1) 


A 4 7 4 C L 

017156 


A4 7 

013 




DVTC ft 

♦ BYIE IU2 


/CM 

6558 


A4 74 C7 

017157 






riT ii AAA *DCT CM 4 A UCU ADDD Tft 1 AAA 

Dl* 4?000 ?SET SnlO rlEn ftDBR iu 1000 


(1) 


A4 "34 C7 

017157 


000 




TjVTr AAA O 777 

♦BiTE 000 I 377 


(1) 


017160 


010 




♦BYTE Q*l 


(1) 


017161 


000 




♦BYTE 0*2 


6559 


017162 






LL B776?F%00 f BACK TO STATUS REG 


(i) 


A4 "34/1 

017162 


77 A 

374 




r«vTP n 4 

♦BYTE «♦! 


/ 4 \ 
(I) 


A4 74 / 7 

017163 


AAA 

000 




1%VTr* Tt AA 5 777 

♦ BYTE r%00 h 377 


/ 4 \ 
(1) 


A4 74 Z A 

017164 


A4 7 

013 




DVTC ft 1 

♦BYTE Q^2 


/ E? / A 

6560 


A4 74 /£T 

017165 






DI» 0?71 fiSSUE READ 


(1) 


017165 


071 




riV/TP* "34 S "T"3"3 

.BYTE 71 1 377 


(1) 


017166 


000 




.BYTE Q.l 


(15 


017167 


000 




.BYTE 0.2 


6561 


017170 






EI. D776»P.OO 5N0M READ TO CHECK FOR ERRORS IN XFER 


(1) 


017170 


374 




.BYTE Q.l 


(15 


017171 


000 




.BYTE F'.OO % 377 


(15 


017172 


023 




.BYTE Q.2 


6562 


017173 






WAIT 200 i CHECK FOR READY BIT TRUE.. 
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A1 7171 


">AA 


AAA 


A ft ftp OA A 
♦ fly UK ZUU 






VI/i/D 


A7.A 




BYTE" /Z*A\ 




6j63 


017176 






EI. D776>P,12 


fCHECK DRIVE STATUS REG ITSELF 


/ 4 \ 

u) 


017176 


374 




.BYTE Q.l 




(1) 


A4 "74 "7"? 

017177 


A 4 *"i 

012 




.BYTE P. 12 S 


377 


/ i \ 


017200 


023 




.BYTE Q.2 




LCI h 


01/201 






ERRTST 40000 


JTEST "ERR" BIT 


ii\ 
U) 




AAA 


1 AA 
1U0 


.ADBR 40000 




M \ 


A1 71A7 


AAA 




.BYTE <10*4> 




OJOJ 








JIF IT WAS 0K» THEN CHECK THE CONTROLLER FOR ERRORS 


QJQO 


A1 7*> A A 






EI, D7?6»P,00 


» EXAMINE CONTROLLER 


Ml 


A1 7^1 






.BYTE Q.l 




{'1 I 


A179A C , 


AAA 
vvv 




.BYTE P.00 I 


377 


M \ 


A 17^/ 


AT? 
via 




.BYTE Q.2 




6567 


017207 






ERRTST 060000 


J DRIVE RBYs NOy SEE IF ENCOUNTERED 


(15 


017207 


000 


140 


.ADBR 060000 




(1) 


017211 


040 




.BYTE <10*4> 




6568 


017212 






ENBLST 


? END OF CHANNEL COMMAND LIST 


(1) 


017212 


000 




.BYTE 




(15 


017213 


000 




.BYTE 




(15 


017214 


050 




.BYTE <12*4> 
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6570 








♦SBTTL TAPE TRANSFER CHANNEL lOHHAND LIST 


6571 








JDRIME CONTROLLER REGISTER IS 776440* *F0LL0UING C0HHANDS APPLY 


6572 








i 7=REyiND 


6573 








> 11=DRIVE CLEAR 


6574 








f 25=ERASE 


6575 








J 27=yRITE TAPE HARK 


6576 








? 31=SPACE FORHARIKSKIP A FILE/ 


6577 








f 33=SPACE REVERSE(5KIP A FILE? HQVING TAPE IN REVERSE) 


6578 








j 51=sRITE CHECK FORWARD 


657? 








? 57=wRITE CHECK REVERSE 


6580 








* /4— imTTr r*f*riHArtr* 

j 61=»RITE FORWARD 


6581 








f 71=READ F0RyARD(G0!) 


6582 








? 77= : READ REVERSE (60!) 


6583 










6584 


017215 






HTASEQ* USA* 763?001 r ADDRESS OF UBA PAGING RAH 


(1) 


017215 


001 




♦BYTE 001 I 377 


/ 4 \ 
(1) 


A4 "S14 / 

017216 


346 




TiVTr* P4 4 

♦BYTE (hi 


(15 


017217 


073 




♦BYTE 0*2 


6585 


017220 






T*T AA AA4 »PPT iiAl TTi Til ttACf" 4 

BL 40*001 ?SE] VALID IN PAGE 1 


f i \ 
(1) 


01/220 


A A i 
001 




r*VTr AA1 9 T7~7 

♦&YIE 001 5 377 


11) 


Ul/221 


1 AA 




♦ bill lul 


f i \ 
(1) 




AAA 

000 




♦ 8Y1E 8^2 


6586 


A4 inm 

017223 






LL B772iP*10 ? SET ADDRESb OF DRIVE 10NTR0L REGISTER 


/ 4 \ 
(1) 


017223 


"7 I A 

364 




♦BYTE G*l 


/ 4 \ 
(1) 


a 4 mn* 

017224 


A4 A 

010 




♦BYTE PM0 1 377 


/ 4 \ 

u) 


017225 


A4 "7 

013 




♦BYTE £U2 


6587 


017226 






DL Of 40 ? ISSUE LONTROLLER AND SLAVE CLR 


(1) 


017226 


040 




♦BYTE 40 1 377 


(15 


017227 


000 




♦BYTE Q4 


(15 


017230 


000 




♦BYTE Q # 2 


6588 


017231 






DL INDIRECT TAPEUNIT ?SET TAPE UNIT ♦ 


(15 


017231 


137 


040 


i nr.Pi a i*.r"i tit t t 

♦ADDR TAPEUNIT 


(1) 


017233 


200 




r,wTr nnnnn 

♦BYTE 0200 


658? 


017234 






LL D772?P*32 } SLAVE SELECT/FORHAT/DENSITY REG 


(1) 


A4 A 

017234 


364 




♦BYTE QA 


/ 4 \ 

(15 


A4 "JATC 

017235 


ATI 

0^2 




♦BYTE P*32 S 377 


i 4 \ 
(1) 


A 4 i 

017236 


A4 *7 

013 




♦BYTE CU2 


65V0 


A4 T)"n 

017237 






BLiNDIKtCT DtftoLV jdci SLAVE y FOKnflT? DENSITY (Ttnr ♦BLNS=1600fr-0? S~0/ 


i 4 \ 
(1) 


A4 Ti*7*7 

017237 


362 


Ail A 

040 


♦ADDR DEN»SLv 


/ 4 \ 
(1) 


A4 

U17241 


AAA 

200 




♦BYTE 0200 


/ errs 4 

6591 


A 4 A<"* 

017242 






EL B772fP»12 fREAD THE DRIVE STATUSi TO HAKE SURE IT EXISTS 


(15 


017242 


364 




♦BYTE £!♦! 


(15 


017243 


012 




♦ BYTE F%12 I 377 


(1) 


017244 


023 




.BYTE Q.2 


6592 


017245 






TUAIT 400 JCHECK THE "DRIVE PRESENT" BIT 


(15 


017245 


000 


001 


.ADDR 400 


(1) 


017247 


060 




.BYTE <14*4> 


6593 


017250 






WAIT 200 JIF WAS PRESENT? WAIT FOR IT TO BE READY 


(15 


017250 


200 


000 


.ADDR 200 


(1) 


017252 


030 




.BYTE <6*4> 


6594 


017253 






LI. D772»P.06 ? FRAME COUNT REGISTER 


(1) 


017253 


364 




.BYTE Q.l 


(15 


017254 


006 




.BYTE P.06 % 377 


(15 


017255 


013 




.BYTE Q.2 
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OJ7J 


A 17052 




riT a a *FTtAMF rnnuT to a to may xjiimb nc cdamcq 
dju UfU j r KHnt bUUni IU U io nriA nUnD Ur rHrinto 


i i \ 


A1 7052 
U1/2j6 


AAA 

ooo 


1SYTC A $ 777 
♦ but $ 5// 


i 4 \ 


A 4 "7*JC7 

01725/ 


AAA 

000 




/ 4 \ 
(I) 


A 4 7*1 / A 

017260 


AAA 

000 


6VTC ft I 

♦BYTE 8*2 


6jV6 


A1 702 4 

017261 




i T Ti770 D AA *CE"T ATiriDCCO TH DLJ1 1 rftiiTDnj CCfiTCTrD 

Li* y//2?r*00 ? be. I HyUKtbb IU KH11 lUNIKUL KtbibitK 


/ 4 \ 
(1) 


A4 "7 r j / 4 

017261 


7/ A 

364 


DVTC ft i 

♦BYTE «♦! 


/ 4 \ 
(1) 


017262 


AAA 

000 


r,UTr ft A A a *?"3"7 

♦ BYTE FS00 I 37/ 


/ 4 \ 


A4 "J1 / "7 

017263 


A4 "7 

013 


TWIT* ft 1 

♦BYTE 0^2 


5DV7 


A4 "7** / 4 

017264 




ul* Of 7 ? ISSUE REWIND 10 TAPE 


/ 4 \ 
(I) 


A4 I h 

017*64 


AA"7 

007 


nv'TC 7 9 777 

♦BYTE 7 & 3// 


/ 4 \ 
(1) 


01/265 


AAA 
000 


liVTC* ft 1 

♦BflL u«l 




A4 TILL 

01/266 


AAA 
000 


T1VTC ft 1 

♦ BY It IU2 


6570 


A4 70/7 

01/26/ 




TT Ttim E» 10 *DrAfi TUC TiDTIiC CTATHC Tft PUCrk* CftD CCA1W 

tl* ufflnkll i htm I nt UKlvt bin tub IU LHttN rUh KlhUY 


a\ 
\1} 


VlflQf 


564 


♦ CliL It ♦ 1 


ii\ 

\l) 


A1 707 A 
01/2/0 


AIO 

012 


PYTJT P 10 £ 777 
♦ Di It hU e 5// 


i 1 s 


AI 7071 
01/2/1 


AO 7 

023 




6577 


A4 7*170 
Ol/i/2 




MATT OAA £UATT CflD CCUTkifi Tfl Pn^Di CTC 

WhIi 200 fWHll rUK KtwiNLi IU LUnrLtlt 


(1) 


a 4 7070 

01/2/2 


nAA AAA 

200 000 


AftriD OAA 

♦flBuK 200 


\1J 


A1707/S 

01/2/4 


A7A 

050 


♦v! I t \0*4/ 


ZZ.AA 

6600 


a 4 707C 
01/2/5 




ftTVCD* 1 T Ti770.D (\A iPftklTDfll 1 CD Tft MCaftDV TitTCT DCf2 

UlArK^ Li* U//2fr+04 >LUNIKULLtK IU ntnUKT UtbU Kco 


/ 1 \ 


A 4 707C 

01/2/j 


HA 

364 


DVTr ft 1 


/ 4 \ 


A 4 "7*17 / 

017276 


AA h 

004 


BVTC D AjI 9 7*77 

♦ BYTE r%04 I 3/7 


(15 


A4 

017277 


A4 "7 

013 


♦BYTE 0*2 


/ / A4 

6601 


A4 77AA 

017300 




a aaa *CCT k'CIA CTADT AriFtDC^C Tft i AAA 

Bl^ 4? 000 fSET KS10 SlfiKT ftUDKEob iu 1000 


/ 4 \ 
(1) 


A 4 "7*7 A A 

017300 


AAA 

000 


15VTF AAA 9 777 

♦BYTE 000 4 377 


/ i \ 


Ai 77A4 

01/301 


A 4 A 

010 


GVTr ft i 

♦BYTE 


/ 4 \ 
(1) 


A4 

017302 


AAA 

000 


♦BYTE Q # 2 


6602 


A4 "J"7A"7 

017303 




LL D772iP*02 ?bET ADDRESS TO WORD COUNT REUISTER 


/ 4 \ 

<l> 


A4 T7A1 

017303 


"7 / A 

364 


♦BYTE «♦! 


/ 4 \ 
(1) 


A4 77AA 

017304 


AAO 

002 


BVTC D AO 5 777 

♦BYTE P+02 I 57/ 




A1 77A5 

01/505 


A1 7 

015 


BVTC ft O 

♦ Dllt iUl 


oo05 


A1 77Ai 
01/506 




Til HA. AAA i1 PARC HC «%10 UftpriC TC 1A01 1 Q-SiTT RYTCC 
i«i* i/0?yvU fi rfiot Ur Di£ wUnUb lo iUZ4 10 si! oil to 


/ 1 \ 
(1) 


A 4 77A2 

01/306 


AAA 

000 


DVTC AAA * 777 
♦Dllt 000 X 5// 




A 4 77 A7 

01/50/ 


77A 

5/4 


BVTC ft 1 
♦Dllt W^l 


11) 


A1771 A 
01/510 


AAA 

000 


PYTr o 
♦Dllt Ut£ 


6604 


A1 771 1 
01/311 




I T Ti770.D A£ iCDAMC PftflMT OCfiTCTLT.' 

Li* y//2?r^06 frKHflt LUUNI KtuibltK 


/ 1 \ 
(1) 


A1 771 4 
01/311 


"ILh 

564 


DVTC ft 1 
♦ Dllt IU1 


/ 4. \ 
(1) 


A 4. "774 1 

017312 


AAZ 

006 


BVTC D Ai 9 777 

♦BYTE r»06 I 37/ 


/ 4 \ 
(1) 


A 4 "7"74 *T 

017313 


A4 "7 

013 


TiVTP ft 1 

♦BYTE Q^2 


6605 


017314 




DL OfO f FRAHE COUNT TO IS HftX NUMB OF FRAMES 


/ 4 \ 
(1) 


A4 "5*7 4 k 

017314 


AAA 

000 


tWTr A t> "777 

♦BYTE 1 377 


/it 
(1) 


A4 K7< £T 

017315 


AAA 

000 


iwTr n 4 

♦BYTE «♦! 


/ 4 \ 
(1) 


A4 "3"74 / 

017316 


AAA 

000 


T>VTC ft O 

♦BYTE tu2 


6605 


A4 774 7 
01/31/ 




i T n7"»0-D AA *CCT AritiDCCC Tft DU11 PftMTDft! D'CfSTCTCD 

Lit U//ifr*w fbtl HUDKtbb IU Knll LUNIKUL KtuibltK 


i i \ 


A1 7717 
01/31/ 


ILh 

364 


PVTC ft 1 
♦ Dllt 


11 J 


A1 770A 

01/520 


AAA 

000 


DYTC D AA i 777 
♦ Dllt I* +00 4 5// 


11/ 


A4 7704 

01/321 


A1 7 

015 


L'VTC ft O 
♦Dllt U*2 


6607 


017322 




DL INDIRECT SKP*G0 IISSUE B XFER CKD'(31=SKIP ♦OR* 71=RD~IN) 


(i) 


017322 


144 040 


♦ADDR SKP*G0 


(1) 


017324 


200 


♦BYTE "0200 


6608 


017325 




EL D772vP«12 fREAD THE DRIVE STATUS TO CHECK FOR READY 


(1) 


017325 


364 


♦BYTE Q4 


(15 


017326 


012 


♦BYTE P*12 £ 377 


(1) 


017327 


023 


♦BYTE Q,2 
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6609 


017330 






1 1 A T T r iA A 

WAIT 200 


(1) 


017330 


200 


000 


♦ADDR 200 


(1) 


017332 


030 




♦BYTE <6*4> 


6610 


017333 






EL B772?P44 


(15 


017333 


TP / A 

364 




♦BYTE 04 


(1) 


017334 


014 




♦BYTE P#14 I 


(1) 


017335 


023 




♦BYTE £U2 


6611 


017336 






RETRY ♦ J ERRT5T 070300 


(1) 


0173,56 


300 


4 ZA 

160 


♦ADDR 070309 


as 


A1 TIAfi 

Ul/i4u 


AJIA 




fiVTC" ''4A+JI*. 

♦ DilC. \lv*4/ 


OQL£. 








CDMCDD* CDDTCT 1A7AAA 


i i \ 


A 4 77 A 4 


AAA 


£\ff 


AririD 1 AiyiAA 


V I / 




AAA 




♦silt \iv**i/ 


Qui 6 


A1 77AA 












HA 




♦ Mil U*l 


/ i \ 


A4 "J7 AC 


A4 *7 
012 




♦eYlt r^li a 


(1) 


A 4 T7 A / 

017346 


023 




♦BYTE LU2 


6614 


A 4 "?T A"? 

017347 






PPiPiTPT AAAAA 

ERRTST 40000 


(1) 


017347 


000 


100 


ATiTtft AAAAA 

♦ADDR 40000 


(1) 


017351 


040 




♦BYTE U0t4> 


/ / 4 C 

6615 


017352 






LI» D7/2?P*00 


(1) 


017352 


364 




♦BYTE Q»l 


(1) 


017353 


000 




♦BYTE F%00 £ 


(1) 


017354 


013 




.BYTE Q.2 


6616 


017355 






ERRTST 60000 


(1) 


017355 


000 


140 


.ADDR 60000 


(1) 


017357 


040 




.BYTE <10t4> 


6617 


017360 






ENDLST 


(1) 


017360 


000 




.BYTE 


(1) 


017361 


000 




.BYTE 


(1) 


017362 


050 




.BYTE <12*4> 



iUAIT FOR FILE READ TO COMPLETE 

5LQ0K AT THE DRIVE ERROR REGISTER 
377 

{ERRORS K0RTH RETRYING?? 

J SEE IF THIS WAS A CORRECTABLE TYPE ERROR 

(READ THE DRIVE STATUS TO CHECK FOR ERRORS 
377 

5 GET ANY DRIVE ERRORS?? 

iNOti ADDRESS TO CONTROLLER STATUS 
377 

> CHECK FOR ERRORS THERE. 
J END OF CHANNEL COMMAND LIST 
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UH80 


TAPE TRANSFER CHANNEL COMMAND LIST 


661? 






JQUICK LITTLE ROUTINE TO RESET THE MAGTAPE AFTER IT SUFFERS AN 


6620 






JIGNORABLE ERROR 


6621 


017363 




MTARST! LI. B7?2»P,10 ISET ADDRESS OF DRIVE CONTROL REGISTER 


t 4 \ 

(1/ 


017363 


364 


.BYTE Q.l 


/ 4 \ 
(1) 


017364 


010 


.BYTE P.10 t 377 


t 4 \ 
(1) 


017365 


013 


.BYTE Q.2 


6622 


017366 




Dl. 0>40 ? ISSUE CONTROLLER AND SLAVE CLR 


/ 4 \ 
(1) 


017366 


040 


.BYTE 40 1 377 


/ i \ 


017367 


000 


.BYTE Q.l 


UJ 


017370 


000 


.BYTE Q.2 


LLT1 


017371 




DI. INDIRECT TAPEUNIT JFIX UNIT NUMBER 


(1) 


017371 


137 040 


.ADDR TAPEUNIT 


UJ 


017373 


200 


♦BYTE "0200 


6624 


017374 




LI. B772»P.04 J CONTROLLER TO MEMORY DEST. REG 


(1) 


017374 


364 


.BYTE Q.l 


(1) 


017375 


004 


.BYTE P. 04 1 377 


(1) 


017376 


013 


.BYTE Q.2 




017377 




DI. 4i000 JSET KS10 START ADDRESS TO 1000 




017377 


000 


.BYTE 000 1 377 


/ 1 \ 


017400 


010 


♦BYTE Q.l 


U J 


017401 


000 


.BYTE Q.2 


qqIq 


017402 




LI. D772.P.06 » FRAME COUNT REGISTER 


Kit 


017402 


364 


.BYTE Q.l 


i i \ 

(15 


017403 


006 


.BYTE P. 06 I 377 


t 4 \ 

(1) 


017404 


013 


.BYTE Q.2 


6627 


017405 




DI, 0>0 ! FRAME COUNT TO IS MAX NUMB OF FRAMES 


(15 


017405 


000 


.BYTE % 111 


(1) 


017406 


000 


.BYTE Q.l 


(1) 


017407 


000 


.BYTE Q.2 


6628 


017410 




ENDLST i QUICK OUT 


(1) 


017410 


000 


.BYTE 


(1) 


017411 


000 


.BYTE 


(15 


017412 


050 


.BYTE <12*4> 
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I Z*IA 

6630 


A4 -144 7 

017413 


A77 

077 


i A*** 

102 


i or 

125 


.IIF NDFiNOROOM INIERJ , ASCIZ /?BUSV 5 BUS POLLUTED ON POWER UP 


6631 


017421 


077 


102 


106 




♦ASCIZ /?BF0/ 


*TklDI!T tillCCCD ftiirori fiU 

r INPUT BUrrtK uvcRFLUw 


6632 


017426 


077 


111 


114 


CHDN6? 


♦ASCII 


mi/ 


? ILLEuAl INS \ RUCTION 


6633 


017431 


015 


012 


000 




♦BYTE 


~015fD12?0 


J CR-LF 


6634 


017434 


077 


125 


111 


TTHJ 


♦ASCIZ /?UIV 


yUNKNOyH INTERRRUPT 


6635 


017441 


102 


125 


123 


rTtiJi"Tt ♦ 

EBHED* 


♦ASCIZ 


/BUS 0-35V 


?HEbSA6E HEADER FUR EB CnD 


6636 


A4 T 4C7 

017453 


4 4 T 

113 


123 


A / 4 

061 


KbrKnT* 


♦ASCII /KS10>/ 


fPRUnr 1 nEbSAbt 


6637 


017460 


377 


AAA 

000 






♦BYTE 


D377 f 




c-638 


A4 "7 A 

017462 


AAA 

040 


4 AT 

103 


4 74 

131 


JiCfM A* 

nbblO* 


♦ASCIZ % CYCXSENT/Z 


fLTlLh lire, ruh UJ? LUnnHND 


ZZ70 
QQ07 


A1 7)175 
01/4/ J 


1 7 A 

134 


1 *>7 

122 


1 A7 

103 


npn jn ♦ 
UKbVU ♦ 


♦ASCIZ Z\RCVD/Z 


* TTtATA DCPrTiiCTi Hid DHC / Titf PMFt\ 

? UH I ft KcbblviiU UN pubiUD bilLu 


HAfS 

5640 


A1 75 A A 

01/D04 


A77 
U// 


1 A1 
101 


A57 

00/ 


FPUFP* 

LbVtlW 


♦ nOWlZ. 


A : n/ D \A 


ja } n rnPTrc nc ppam dttc riTfi mat matpu 
?h 5 i> bUr Itb Ur bKBn pi lb 1UU Nui nfil LH 


6641 


ai 75 n 
01/31*. 


1 OA 
120 


1 A7 
103 


AC. "7 

Oj/ 


rbnou* 


♦ HObiZ, 


IP? ft 
Arw/ A 


ifiPUTni IQ 
f UdvIUUo 




Ui/jiO 




1 1 A 
iiU 


1 \A 
114 


nL i no * 


♦ rlwwjii. 


♦ /•ilL. I If l ♦ 


iMPQQ&Rf iua] TrTl/YYYYYY 1 iJUFPF YYYYYY TQ MT6 
mLODHuL nRL 1 Ll'/ aaaaAA wnC.t\L AAaaaa ID UHlH 






ft77 
v// 


1 AA 


1 1 A 

llo 


PYMQ* 


♦ nOwiZ, 






LLhh 


A1 7577 


A77 

0// 


1 AO 
102 


1 Oil 

124 


tfTrATJ * 

DirHlL* 


♦ KOvii. 


/ fl?} / 


sriruTPr cpphp hp TTMrmiT riiiPTun pnnT nprpATTn^ 


£AA*\ 
Q04U 


ai m A A 
U1/34U 


1 AO 


1 0A 
124 


AAA 
U4U 




♦ riOwiZ. 


/pit sy/ 


ffiilODHUt On 1 PUUllriUF UDlfXu PUUl Dm 


6646 


U1/J46 


A77 

O// 


1 FiA 
104 


116 




♦ nOirXZ. 




f Ullf rfUl L-UnrLLiL ""Int nHLi 


LLM 

664/ 


Ai "»c.e* 

U1/DJ4 


117 
11/ 


1 AZ 

106 


1 AZ 

106 


Urrnou* 




/fiST\ / 


rntbOHul: bRTb blUNflL lb Urr 


664o 


Ol/JOl 


A77 


1 OA 

120 


1 A1 
101 


DApMQR* 

rHf\nou» 


♦ HOLli. 


/?PAD FPD / 

/ :r Hr\ tr\f\ / 


spFPnpT pj npk* cpcc7r riiir in pap cpp 
? KtrUK! bLUbl\ rKttlt l«Ut 1U rflK tKh 


664? 


Ai 7577 


A77 

0// 


11D 


1 00 

122 


MfiCMQP, ♦ 

nUanau * 


AQPT7 

♦ HOlrlZ. 


/?ypr\ / 
/ fflKLX/ 


iMrufiPV pecprcu rppnp 
ffitnUhT htrKtbn thhUh 


ZZCA 

6630 


Ai 7ZA1 
01/601 


A77 

077 


1 A*5 
102 


1 A7 
103 


LKKnbb ♦ 


♦ HDLliL 


/?PP / 
/ f I5b / 


*ta TiA snnT rurpk*' 
? 1 H-OH ♦ ♦ ♦ ♦ buy 1 bfiLblN 


I ZC4 


A4 ~}li\l 

017606 


A77 

077 


122 


i ne 

125 


Pkl 4 
KW4 4 


♦ HbtlZ. 


/ fKUNnlribX/ 


f IKYINb TU DO A CnD 1HAT MhT btf\Ew UP 


Z ICS 


AI 7ZOA 
01/620 


A77 
0// 


llo 


1 AA 

104 


HUH* 


♦HDL 11 


/ fNliflV 


yKhltivLD NU Dhih riLKNUwLEDbc UN ntn RtiiUtST 


6653 


A4 "it *\i 

017626 


077 


116 


4 7A 

130 


NAnnbb* 


♦Hbbll 


/ rNArlV 


fKLrtKKtNltD NUN LXiblftNT ntnUhi LUlAl IUN 


LLC A 

66j4 


A4 *7 / "7 A 

017634 


A77 

07/ 


1 1 z 

116 


i An 
102 




♦ASCIZ 


/?HBR\/ 


?lrUNbULt WHb NUI bKHNltD pub UN A KtUUtbi 


/zee 


A1 7Z AO 
01/642 


A77 
0// 


1 oo 
122 


1 A1 
101 


PAH* 


♦ASCIZ 


/?RA/ 


flnU KtUUiKto fiKbutntNl ♦ ♦U uUMh lYrh oUnt IniNb 


66j6 


A17Z AL 

01/646 


A77 
0// 


1 AO 

102 


1 1 z 

116 


DDI * 
Del 4 


♦ASCIZ 


/?BN/ 


* TVPETi A PATi XH iktPCP / T T HP V flP * CTf* \ 

f ITrhD R phD NUnptKU^t 7 UK X UK f tlLw 


ZZC"? 

6657 


A4 "7/ C5 

0176^2 


A7Z 

076 


A7Z 

076 


i OC 

125 




♦ASCIZ 


/»UBA?/ 


f QUERY FOR UNiBUb ADAPTER 


/ / CO 

6658 


A4 "? / / 4 

017661 


A*?/ 

076 


A "5 / 

076 


4 11 

122 




♦ASCIZ 


/»RHBASE?/ 


? QUERY rOR RH11 10 USE 


/ / en 

665? 


017673 


A"7/ 

076 


A~5/ 

076 


4 ie 

125 


U*UNli 4 


♦ASCIZ 


/»UNIT?/ 


fUUtKT rUK UN11 1U Ubt 


ZZZA 

6660 


A4 T7A7 
0i//03 


A7Z 

0/6 


A7Z 
0/6 


1 OA 

124 


n Trn* 


♦ASCIZ 


/»TCU?/ 


inncpv cap TAPr rnkjTpni 1 hkjtt 
fUUtKT rUK Ifirt bUNiKULL UNI I 


in* 
666 x 


A 4 "J"? 4 A 

017712 


A7Z 

076 


0/6 


1 AA 
104 


U * DLN ♦ 


♦ASCIZ 


/»DEMS?/ 


* ni icdv cno tapc ricweTTv 
fUUtKT rUK IfiPE DfcNbilT 


/ / / n 
s662 


017722 


A"? / 

076 


A*? / 

076 


4 17 

123 


ft ri ih 

Q*SLv4 


♦ASCIZ 


/»SL0?/ 


*nncDV rnc» TA.c«r pj ahf 

j QUERY FOR TAPE SLAVE 


6663 


017731 


077 


113 


101 


kahsg: 


♦ASCIZ 


/?KAV 


5KEEP ALIVE FAILED 


6664 


017736 


077 


106 


122 


FRCHSGJ 


♦ASCIZ 


/?FRCV 


5 HAD A FORCED RELOAD 


6665 


017744 


077 


120 


127 


PULENJ 


♦ASCIZ 


/mu 


? PASSWORD LENGTH ERROR 


6666 


017751 


077 


116 


101 


N0ACCS5 


♦ASCII 


/?NA/ 


fNOT AVAILABLE (KLINIK LINE THAT IS) 


6667 


017754 


015 


012 


000 




♦BYTE 


rt 015f"012f0 


? CR-LF 


6668 


017757 


120 


127 


072 


Qpyi 


♦ASCII 


m\i 


(ASK FOR A PASSWORD MESSAGE 


6669 


017762 


015 


012 


000 




♦BYTE 


"015i"012f0 


*? CR-LF 


6670 


017765 


102 


124 


040 


AUTOHSt 


♦ASCIZ 


/BT AUTO/ 


f BEGINNING AUTO BOOT SEQUENCE 
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6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6710 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6720 
6721 
6722 
6723 
6724 
6725 



020000 
020000 000002 
020002 000002 
020004 000002 
020006 000002 
020010 000002 
020012 000005 
020017 000005 
020024 000005 
020031 000002 
020033 000002 
020035 000005 
020042 000005 
020047 000005 
020054 000006 
020062 000006 
020070 000003 
020073 000005 
020100 000005 
020105 000005 
020112 000005 
020117 OOOOOi 

020120 000001 

020121 000001 

020122 000001 

020123 000001 

020124 000001 

020125 000002 
020127 000001 

020130 OOOOOi 

020131 OOOOOI 

020132 000005 
020137 000005 
020144 000005 

020151 OOOOOI 

020152 000002 
020154 000002 

020156 OOOOOI 

020157 OOOOOI 

020160 OOOOOI 

020161 OOOOOI 

020162 OOOOOI 

020163 OOOOOi 

020164 OOOOOI 

020165 OOOOOI 

020166 OOOOOI 

020167 OOOOOI 
020170 000002 
020172 000010 
020202 OOOOOI 



,SBTTL - SH10 DATA STORAGE PARAMETERS 

» NOTE THAT ALL THESE LOCATIONS ARE RAM LOCATIONS 

J AND MAY BE USED WITH THE 

r ASSEMBLY OF SEPARATE MODULES OF CONSOLE CODE,,,, 
RAMST 

T80DT! ,BLKB 2 

C80ADJ .BLKB 2 

CRM AD! ,BLKB 2 

BYTCNTt .BLKB 2 

CRMFN* .BLKB 2 

EHBUFJ .BLKB 5 

HEMAD5 .BLKB 5 

HMD*, .BLKB 5 

ENEXT I .BLKB 2 

DNEXTJ .BLKB 2 

CHRBUFt .BLKB 5 

BUS AD i .BLKB 5 

DHDAT * .BLKB 5 

RAMX1! .BLKB 6 

RAMX25 .BLKB 6 

ER.LOC! .BLKB 3 

TMPBF2I .BLKB 5 

THPB2! .BLKB 5 

BLKNUMJ .BLKB 5 

BLKADR5 .BLKB 5 

EXMi: .BLKB 1 

NOPNTI .BLKB 1 
BT.TYPEt .BLKB 1 

P8.TMPJ .BLKB 1 

ERADDR! .BLKB 1 

KLNKSUi .BLKB 1 

KPUPNT5 .BLKB 2 

KPKCNT5 .BLKB 1 

UATCHCt .BLKB 1 

CMOS.. J .BLKB 1 

UNITNM5 .BLKB 5 
TAPEUNIT5 .BLKB 5 

SKP.GO: .BLKB 5 

BRKON? .BLKB 1 

BRKDTJ .BLKB 2 

ERRCDJ .BLKB 2 

USRMDl .BLKB 

RPEND5 .BLKB 

RPCNTR5 .BLKB 

BFCNT! .BLKB 

STPPD5 .BLKB 

EIFLAG! .BLKB 

DIFLAGt .BLKB 

RNFLG5 .BLKB 

CHKPAR5 .BLKB 

CHKREFi ,BLKB 

ECSAVi .BLKB 2 

RM100J .BLKB 8 

BTMSK5 .BLKB 1 



? PLACE TO EXECUTE 8080 'IN'S' AND "OUT'S* 
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6/26 


AOAOA? 

U2U2UO 


AAAAA1 


Of if 


A n A n Ai 


AAAAA1 


6728 


020205 


AAAAAO 

000002 


672? 


A •"IAEA'S 

020207 


AAAAA1 

000002 


6730 


020211 


AAAAAn 

000002 


6731 


020213 


A AAA A 4 

000001 


6732 


An An4 a 

020214 


A A AA A4 

000001 


6733 


AnAn4 C 

020215 


AA AAA/% 

000002 


6734 


020217 


A A A A An 

000002 


6735 


020221 


AAAAAn 

000002 


6736 


020223 


AAAAAH 

000002 


6737 


020225 


AAAAAn 

000002 


6738 


An 

020227 


AAAAAn 

000002 


6739 


020231 


AAAAAn 

000002 


6740 


020233 


AAAAAn 

000002 


6/41 


AnAn"7C 

020235 


AAAAAC 

OOOOOj 


LI A*} 

6/42 


020242 


AAAAAC 

OOOOOj 


6743 


020247 


AAAAA*. 
000001 


6/44 


AOAO^A 
V2U2DU 


AAAAA1 
UUUUU1 


6/4 J 


U2U2JI 


AAAAA 1 

UUUUU1 


6/46 


U2U2D2 


AAAAA 4 


674/ 


AnAnC*7 

020253 


AAAAA 4 

000001 


6748 


020254 


AAAAA4 

000001 


674? 


020255 


A A A A A 4 

000001 


6750 


AnAnE* / 

020256 


AAAAA4 

000001 


6751 


i\n Ann 

020257 


A A AAA 4 

000001 


6752 


A A Ait / A 

020260 


A A A A A J 

000001 


6753 


020261 


A A A A A J 

000001 


6754 


020262 


AAAAA"! 

00000/ 


6755 


AnAn"H 

020271 


AAAAA / 

000006 


L1CL 

6/56 


020277 


AAAAA i 

000001 


6/5/ 


A1A7AA 
020300 


AAAAA 1 
000001 


6758 


A1ATA4 

020301 


AAAAAH 

000001 


6759 


020302 


AAAAnA 

000020 


6/60 


020322 


AAAAOA 
000020 


/ "5/ 4 

6761 


020342 


AAAAAn 

000002 


6762 


020344 


AAAAAn 

000002 


6763 


020346 


AAAAAn 

000002 


6764 


020350 


AAAAAn 

000002 


6765 


020352 


AAAAAn 

000002 


6766 


020354 


AAAAA4 

000001 


6767 


020355 


AAAAA 4 

000001 


6768 


020356 


AAAAA4 

000001 


676? 


020357 


AAAAA 4 

000001 


6770 


AO A7 / A 

020360 


AAAAA*. 

000001 


6771 


AHA"? / 4 

020361 


AAAAA 4 

000001 


6772 


A Aft"* / n 

020362 


A A A A A 1"" 

000005 


6773 


020367 


000005 


6774 


020374 


000005 


6775 


020401 


000031 


6776 


020432 


000062 


6777 


020514 


000132 


6778 


020646 


000001 


6779 


020647 


000002 



btnum: ♦blkb i 

EOLt ,BLKB 1 

AH*AIi .BLKB 2 

RPBUFSi .BLKB 2 

RPLST5 ,BLKB 2 

RPTQNi .BLKB 1 

CHRCNTt .BLKB 1 

BUT .5 .BLKB 2 

HLSAUEt .BLKB 2 

CMB..5 .BLKB 2 

.ARG15 .BLKB 2 

CMCNTi .BLKB 2 

FIRSTS .BLKB 2 

CHKHLTJ .BLKB 2 

0CTSV5 .BLKB 2 

SHRTABS .BLKB 5 

RHBASE! .BLKB 5 

CSLM0BEJ .BLKB 1 

KACNTRt .BLKB 1 

HMFLGJ .BLKB 1 

MAILFGJ .BLKB 1 

MERCNTJ .BLKB 1 

UBANUH5 .BLKB 1 

GQC0DEJ .BLKB 1 

SECRET? .BLKB 1 

DIECNTJ .BLKB 1 

CNTLQ.ONi .BLKB 1 

APTANSJ .BLKB 1 

PASSWORD ! .BLKB 7 

KpyBUF! .BLKB 6 

PHRTRYt .BLKB 1 
KLLINE.ON: .BLKB 1 

E.CNTS .BLKB 1 

CRMBF i .BLKB "D16 

CRMTM! .BLKB "IU6 

KATIM1J .BLKB 2 

.IIF DF » SCEC0D » SCE ADR I .BLKB 2 5 LAST FAILING ADDRESS 

M0DBISS .BLKB 2 

N0REND5 .BLKB 2 

ENVPNTJ .BLKB 2 

PARBT! .BLKB 1 

TRAPENJ .BLKB 1 

MTAUBAJ .BLKB 1 

BSKUBA5 .BLKB 1 

STATE? .BLKB 1 

LSTMSGl .BLKB 1 

DEN.SLMi .BLKB 5 

MTBASEl .BLKB 5 

DSBASEi .BLKB 5 

RPINI5 .BLKB "D25 

RPTBFI*. .BLKB "D50 

BUFBG5 .BLKB "B90 

BUFEN! .BLKB 1 

E.BUF5 .BLKB 2 
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6/ou 


AOAZC1 AAA*. Ai\ 




t»i}tbt 


(SSLKd 


6781 


AH A. 4 4 A A AAA 4 

021011 000001 




ENVMN05 


.BLKB 


/ "inn 

6782 


A**t4 A4 *\ AAAAA4 

021012 000001 




envchk; 


.BLKB 


6783 


A«"\4A4"? AAA4A/ 

021013 000106 




ENVBUFi 


.BLKB 


6/84 


A*H AAAAA*i 

021121 000002 




sysin: 


.BLKB 


6785 


AHII"! AAAAA»"1 

021123 000002 




SYSOUTi 


.BLKB 


6786 


021125 000200 




SYSBUF! 


.BLKB 


6787 


021325 000001 




SYSEND5 


.BLKB 


6788 


001 


.IF 


DF»SCEC0D 


6789 


021326 000001 




SC. OFF 5 


.BLKB 


6790 


021327 000050 




RHSAVE5 


.BLKB 


6791 


000 


.ENDC 






6792 


021377 


FREE*. 






6793 


000000 




.END 





"0140 

1 

1 

70 iEB IS LONGEST COMMAND WITH 67. CHARS 

2 

2 

"0200 

1 !AND EMPTY BYTE TO HOLD END OF LIST 

1 i RECOVERY ON OR OFF FLAG 
40, » BUFFER FOR SAVING RH STUFF 



j END STATEMENT 
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A 
H 


7AAAAA7 

Avvvvv/ 


r,7i 

J32 


j6/ 


JOV 


Z7A 

o3U 


£70 

63o 


£50 

6j2 


6Dj 


£50 
OJO 


zco 

6J7 


i£0 

662 


££C. 

OOJ 


££7 
66/ 


£ IQ 
000 






Z7A 

6/0 


6/3 


£OA 
680 


OO/ 


£01 

691 


7AA 
/04 


7AC 

/Oj 


7AZ 
/06 


7A7 
/0/ 


7AO 

/Od 


717 
/!/ 


74 

/lo 


700 

fii 






"717 


774 

731 


770 

732 


~}A A 

744 


7 A7 

747 


7 AO 

74? 


7C7 

75/ 


7Z A 

764 


77C 

77j 


70C 

795 


OAO 

802 


oi c 
oIj 


070 

84o 






n a a 

840 


fl / 1 

86? 


887 


928 


932 


ft A"J 

947 


pica 

950 


ft/ A 

960 


A74 

971 


ftnn 
??8 


i A4 7 

1013 


i A7C 

1035 


4 AAfi 

1048 






1 AZ A 

1064 


4 AZO 
1068 


1 A7C 

10/5 


i A7Z 

1076 


108 j 


1 4 4 c 

1115 


4 i AO 

114o 


1 4 CTA 

IIjO 


4 4 CO 

11j2 


i i £7 
116/ 


i 1 7A 
11/4 


1 4 7Z 
11/6 


•i 4 OO 

1182 






4 4 1A 

1190 


4 4 nn 

119? 


4 14 "J 

1217 


4 1*7 / 

1236 


4 1// 

1266 


4 mi 
1278 


4 im 

1283 


4 114 

1291 


4 11"! 

1293 


4 7A"? 

130/ 


4 74 1 

1312 


4 74 A 

1314 


4 714 

1321 






•1 710 

1328 


4 77A 

1330 


i 770 
1338 


i Tift 

1339 


i 7AA 

1340 


i "I Aft 

1342 


A 7ZC 

1365 


i 704 

1381 


i Ai O 
141? 


i AAA 

1440 


i ACC 

145j 


1 AZ1 

1461 


i £ AA 

1640 






4 Z AC 

164j 


1648 


4 £ £Z 

1666 


i Z77 

16/3 


1 ZQA 

1680 


i £07 

168/ 


1 zoo 
168? 


1 zoo 
I0Y0 


i 7AZ 
1/06 


1 70 1 
1/21 


1 700 
l/2z 


4 71C 

1/3j 


1 7AC 

1/4j 






1 7CG 
1/jY 


1 70R 
I/7 J 


1 700 
1/77 


10A7 

lo03 


1 0A7 

iov/ 


1 01 1 

loll 


1 070 

lo3Y 


1QA1 
lo41 


10AO 

Io4Y 


10R1 

lOJl 


1 0R7 
10 D/ 


1 007 
107/ 


1 007 

1Y23 






1000 
1YZY 


1070 


1077 
1Y0/ 


1 0A1 


10AR 

iy*tj 


10 c ,0 

iyj£ 


10RA 

lyjo 


10AO 


10A7 
1Y0O 


170/ 


1077 
1Y// 


1 070 

17 f 7 


1000 






1 OQR 

IYoj 


1 OOZ 
1700 


1 007 
1773 


1 ooz 

lyyo 


0AA7 
2003 


0AA7 


OA10 

2012 


OA1 

2vlo 


0A07 
2U23 


OA AC, 

2U4j 


OAAO 
2v4o 


OAR A 
2Uj4 


OA70 






OAOA 

2084 


01 AO 
2102 


01 AC 

2100 


0110 
2112 


01 1 A 

2114 


01 07 

2123 


01 07 

212/ 


01 7 A 

2130 


Oi 77 

2133 


01 70 

2107 


01 A 7 

214/ 


01 c.o 

21j2 


01 R£ 

21jo 






01 A7 
£iOO 


01 £0 
ill DO 


000c 
Ilia 


0000 

ZLd.7 


00A7 


oozo 
22oo 


0007 

22Y3 


0000 

2277 


0710 


071 c, 
^OlJ 


0700 

loll 


070Z 
lolo 


0771 
look 






0777 
£.301 


07AO 

234*. 


07R1 
23 J 1 


07Z7 
2363 


07£0 
£007 


OA10 
24io 


OAOi 

2421 


OA70 

24oo 


0AA1 
2441 


OAOO 

mil 


0A07 
24 if 


OAOO 


ORAC 
2jUj 






2jOY 


OR1 A 

£Ji4 


OR1 

231o 


2j22 


OR70 

2D3V 


0RA7 

2j43 


0R07 

2jo/ 


0C.00 

2jV2 


OROA 

2D74 


0R07 

2jy/ 


OZAA 

2600 


0£Ai 
2606 


0£1 1 
2011 






0£1 R 
261j 


0£1 
2oiY 


0£RA 

2634 


ozco 

20J7 


0££0 

2662 


0£7£ 

26/6 


0£01 

26oI 


O£0A 

26o4 


07A1 

2/01 


071 A 
2/1U 


07RA 
2/34 


07R£ 
2/06 


07R7 

2/j/ 






2/ 07 


0777 
If/f 


0770 

2//Y 


0701 
2/71 


OOAO 
20V7 


0001 

2o21 


0077 

2o33 


OOAR 

2o4j 


ooze, 
2o6D 


007A 

2o/0 


OOAA 

2Y00 


OOAA 

2YU4 


0000 

lie. 1 






0007 
2Y23 


0007 
HI/ 


007A 

2Y30 


007 £ 
2700 


OOAR 


0077 

2V/3 


0007 

2Yo3 


0000 
£770 


7AAZ 

oyUo 


7AA0 


7A1 C , 
OUiJ 


7A17 

oul/ 


7AAA 
0U44 






7 AAA 
3U46 


7AA0 
0U4Y 


7AR0 

3Uj2 


7AZ0 

3U62 


7AAA 

3Uo3 


7A70 

3U/2 


7A7A 
oV/4 


7A70 

0U/0 


7A0A 
OVOV 


7A07 
OU00 


7A0A 
OvYU 


7 AOO 


7A0A 
0U74 






71 A1 
OlUi 


71 AR 
OlvJ 


71 1 7 
Oil/ 


71 OR 


7107 


7171 
JlJl 


71 7A 
Oi04 


71 AO 


71 RO 


74 C7 
01 J/ 


7170 
01 / 1 


OlOJ 


7100 

0100 






701 1 

02ll 


7017 
OlLf 


7007 
oil/ 


70RZ 


70AO 


lOkA 


700A 


7000 


7O0A 

o^yy 


77A7 
00v/ 


77£A 
OOOv 


777R 
00/J 


7777 

Oof / 






7701 


7A£0 
3462 


7A0R 
340J 


7400 

34 7 2 


7 C ,07 
3j23 


7 C ,0£ 

3j2o 


3j41 


OJJ4 


OJJJ 


OJJO 


7C70 


Ojoo 


7R0A 

ojyo 






7Z4 4 

3611 


7£4 O 

3612 


7Z7A 

3630 


7£CO 

365? 


7£70 

36/2 


7£D£ 

3696 


771 A 

3/10 


771 
3/18 


777A 

3/30 


7777 
3/0/ 


77C. 4 

3/jl 


77C. a 

3/J4 


77£0 






77Z7 
3/63 


7"'£7 

3/6/ 


77£0 
3/68 


3//£ 


777 £ 

3//6 


777"J 

3/// 


7700 

3/o2 


770R 

3/oj 


7701 

3/Y1 


70AC. 

3o0j 


7QA£ 

3oU6 


701 1 

loll 


700 £ 

3oYo 






7QAZ 
3906 


1071 

3931 


70C7 


700 A 

3984 


7000 

399? 


A AAO 

4002 


AA1 A 

4010 


AAi 
4012 


AA01 

4021 


AAOO 


AA77 
403/ 


AAAO 

404Y 


AA££ 

4066 






4069 


i AT A 

4074 


A A"?n 

4079 


A An A 

4084 


A AflT 

4093 


tint 

4184 


4238 


4243 


A1C4 

4251 


4253 


A1CC 

4255 


4259 


A 1 / i 

4261 






4270 


4271 


4273 


4275 


4277 


4287 


4295 


4302 


4304 


4312 


AT?"»A 

43^0 


4390 


4400 






4407 


4411 


4430 


4445 


4454 


4455 


4457 


4464 


4467 


4520 


4568 


4570 


4625 






4630 


4661 


4674 


4681 


4697 


4702 


4722 


4723 


4724 


4738 


4767 


4781 


4822 






AG74 

4831 


AOAO 

4842 


AOL l 

4866 


4881 


AOi A 

4914 


AG77 

4933 


AOC4. 

4? j I 


AQC7 

4953 


AOC A 

4954 


AOCZ 

4956 


AOZ Z 

4966 


A070 

49/2 


498j 






AOO 4 

4??1 


CAAZ 

5006 


CA4 Q 

5018 


CA07 

j023 


j028 


CA70 

j03o 


C4 AO 

DlO? 


CI 7A 

j!34 


C4 AO 

j14? 


C1 £7 

516/ 


C4 £0 
Jl6? 


COAA 
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